Skip to content
Snippets Groups Projects
Commit fe314dfd authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 21/11/2022: bugfix, LWU and LWD not filled with ECRAD with profiler

parent d0fd541d
No related branches found
No related tags found
No related merge requests found
...@@ -935,7 +935,7 @@ IF (LDIAG_IN_RUN) THEN ...@@ -935,7 +935,7 @@ IF (LDIAG_IN_RUN) THEN
XCURRENT_SFCO2(:,:) = ZSFCO2(:,:) XCURRENT_SFCO2(:,:) = ZSFCO2(:,:)
XCURRENT_DSTAOD(:,:)=0.0 XCURRENT_DSTAOD(:,:)=0.0
XCURRENT_SLTAOD(:,:)=0.0 XCURRENT_SLTAOD(:,:)=0.0
IF (CRAD=='ECMW') THEN IF (CRAD/='NONE') THEN
XCURRENT_LWD (:,:) = XFLALWD(:,:) XCURRENT_LWD (:,:) = XFLALWD(:,:)
XCURRENT_SWD (:,:) = SUM(XDIRSRFSWD(:,:,:)+XSCAFLASWD(:,:,:),DIM=3) XCURRENT_SWD (:,:) = SUM(XDIRSRFSWD(:,:,:)+XSCAFLASWD(:,:,:),DIM=3)
XCURRENT_LWU (:,:) = XLWU(:,:,IKB) XCURRENT_LWU (:,:) = XLWU(:,:,IKB)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment