Changeset 987 for LMDZ4/trunk/libf/phylmd/oasis.F90

Timestamp:

Jul 30, 2008, 5:57:45 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Du nettoyage sur le parallelisme, inclusion de nouvelles interfaces pour OPA9
et ORCHIDEE YM
LF

File:

• LMDZ4/trunk/libf/phylmd/oasis.F90 (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/oasis.F90

@@ -44 +44 @@
   !$OMP THREADPRIVATE(out_var_id)
 
+  CHARACTER(LEN=*),PARAMETER :: OPA_version='OPA9'
 
 #ifdef CPP_COUPLE
@@ -129 +130 @@
 !     Define symbolic name for fields exchanged from atmos to coupler,
 !         must be the same as (1) of the field  definition in namcouple:
-    cl_writ(1)='COTAUXXU'
-    cl_writ(2)='COTAUYYU'
-    cl_writ(3)='COTAUZZU'
-    cl_writ(4)='COTAUXXV'
-    cl_writ(5)='COTAUYYV'
-    cl_writ(6)='COTAUZZV'
-    cl_writ(7)='COWINDSP'
-    cl_writ(8)='COSHFICE'
-    cl_writ(9)='COSHFOCE'
-    cl_writ(10)='CONSFICE'
-    cl_writ(11)='CONSFOCE'
-    cl_writ(12)='CODFLXDT'
-    cl_writ(13)='COTFSICE'
-    cl_writ(14)='COTFSOCE'
-    cl_writ(15)='COTOLPSU'
-    cl_writ(16)='COTOSPSU'
-    cl_writ(17)='CORUNCOA'
-    cl_writ(18)='CORIVFLU'
-    cl_writ(19)='COCALVIN'
+    IF (OPA_version=='OPA9') THEN
+      cl_writ(1)='COTAUXXU'
+      cl_writ(2)='COTAUYYU'
+      cl_writ(3)='COTAUZZU'
+      cl_writ(4)='COTAUXXV'
+      cl_writ(5)='COTAUYYV'
+      cl_writ(6)='COTAUZZV'
+      cl_writ(7)='COWINDSP'
+      cl_writ(8)='COPEFWAT'
+      cl_writ(9)='COPEFICE'
+      cl_writ(10)='COTOSPSU'
+      cl_writ(11)='COICEVAP'
+      cl_writ(12)='COSWFLDO'
+      cl_writ(13)='CONSFLDO'
+      cl_writ(14)='COSHFLIC'
+      cl_writ(15)='CONSFLIC'
+      cl_writ(16)='CODFLXDT'
+      cl_writ(17)='CRWOCEIS'
+      cl_writ(18)='CRWOCERD'
+      cl_writ(19)='CRWOCECD'
+    ELSE IF (OPA_version=='OPA8') THEN
+      cl_writ(1)='COTAUXXU'
+      cl_writ(2)='COTAUYYU'
+      cl_writ(3)='COTAUZZU'
+      cl_writ(4)='COTAUXXV'
+      cl_writ(5)='COTAUYYV'
+      cl_writ(6)='COTAUZZV'
+      cl_writ(7)='COWINDSP'
+      cl_writ(8)='COSHFICE'
+      cl_writ(9)='COSHFOCE'
+      cl_writ(10)='CONSFICE'
+      cl_writ(11)='CONSFOCE'
+      cl_writ(12)='CODFLXDT'
+      cl_writ(13)='COTFSICE'
+      cl_writ(14)='COTFSOCE'
+      cl_writ(15)='COTOLPSU'
+      cl_writ(16)='COTOSPSU'
+      cl_writ(17)='CORUNCOA'
+      cl_writ(18)='CORIVFLU'
+      cl_writ(19)='COCALVIN'
+    ELSE
+      STOP 'Bad OPA version for coupled model'
+    ENDIF
+
 !
 !     Define symbolic name for fields exchanged from coupler to atmosphere,
 !         must be the same as (2) of the field  definition in namcouple:
 !
-    cl_read(1)='SISUTESW'
-    cl_read(2)='SIICECOV'
-    cl_read(3)='SIICEALW'
-    cl_read(4)='SIICTEMW'
+    IF (OPA_version=='OPA9') THEN
+      cl_read(1)='SISUTESW'
+      cl_read(2)='SIICECOV'
+      cl_read(4)='SIICEALW'
+      cl_read(3)='SIICTEMW'
+    ELSE IF (OPA_version=='OPA8') THEN
+      cl_read(1)='SISUTESW'
+      cl_read(2)='SIICECOV'
+      cl_read(3)='SIICEALW'
+      cl_read(4)='SIICTEMW'
+    ELSE
+      STOP 'Bad OPA version for coupled model'
+    ENDIF
     
     il_var_nodims(1) = 2
@@ -286 +321 @@
 ! Local variables
 !************************************************************************************
-    LOGICAL                     :: checkout=.FALSE.
-    INTEGER                     :: istart,iend
-    INTEGER                     :: wstart,wend
-    INTEGER, PARAMETER          :: nuout = 6 
-    INTEGER                     :: ierror, i
-    REAL, DIMENSION(iim*jj_nb)  :: field
-    CHARACTER (len = 20),SAVE   :: modname = 'intocpl'
-    CHARACTER (len = 80)        :: abort_message 
-
-!************************************************************************************
+    LOGICAL                          :: checkout
+    INTEGER                          :: istart,iend
+    INTEGER                          :: wstart,wend
+    INTEGER, PARAMETER               :: nuout = 6 
+    INTEGER                          :: ierror, i
+    REAL, DIMENSION(iim*jj_nb)       :: field
+    CHARACTER (len = 20),PARAMETER   :: modname = 'intocpl'
+    CHARACTER (len = 80)             :: abort_message 
+
+!************************************************************************************
+    checkout=.FALSE.
 
     WRITE(nuout,*) ' '