Changeset 2372 for CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/cpl_oasis3.F90

Timestamp:

11/27/14 17:45:52 (9 years ago)

Author:

aclsce

Message:

Modified in order to :

• use writing of diaptr file by using XIOS library (SOURCES/NEMO and opa9.card)
• IPSLCM6 specific NEMO sources coherent with updated NEMO revision
• IPSLCM6 specific NEMO namelist files coherent with updated NEMO revision
• use only XIOS in LMDZ trunk revision (run.def parameter)
• coherent TS coherent with output variables (green TSC)
• significative monitoring (ATM and MBG)

File:

• CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/cpl_oasis3.F90 (modified) (2 diffs)

CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/cpl_oasis3.F90

@@ -290 +290 @@
          IF ( llaction ) THEN
             
-            kinfo = OASIS_Rcv
             pdata(nldi:nlei, nldj:nlej,jc) = exfld(:,:)
             
@@ -308 +307 @@
                WRITE(numout,*) '****************'
             ENDIF
+
+            ! Ideally we would not reuse kinfo, but define a separate variable
+            ! for use as the return code from this routine to avoid confusion
+            ! with the return code previously obtained from the coupler.
+            kinfo = OASIS_Rcv
             
          ELSE