Changeset 1274 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/oasis.F90

Timestamp:

Dec 4, 2009, 3:26:20 PM (15 years ago)

Author:

Laurent Fairhead

Message:

• possibilite de passer le module du stress du vent (activation ou pas via la namcouple Oasis)
• petite correction OpenMP

AC

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/oasis.F90 (modified) (3 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/oasis.F90

@@ -48 +48 @@
   INTEGER, PARAMETER :: ids_rivflu = 23
   INTEGER, PARAMETER :: ids_atmco2 = 24
-  INTEGER, PARAMETER :: maxsend    = 24  ! Maximum number of fields to send
+  INTEGER, PARAMETER :: ids_taumod = 25
+  INTEGER, PARAMETER :: maxsend    = 25  ! Maximum number of fields to send
   
   ! Id for fields received from ocean
@@ -156 +157 @@
     infosend(ids_calvin)%action = .TRUE. ; infosend(ids_calvin)%name = 'COCALVIN'
     
-    
     IF (version_ocean=='nemo') THEN
         infosend(ids_shftot)%action = .TRUE. ; infosend(ids_shftot)%name = 'COQSRMIX'
@@ -165 +165 @@
         infosend(ids_icevap)%action = .TRUE. ; infosend(ids_icevap)%name = 'COICEVAP'
         infosend(ids_liqrun)%action = .TRUE. ; infosend(ids_liqrun)%name = 'COLIQRUN'
+        infosend(ids_taumod)%action = .TRUE. ; infosend(ids_taumod)%name = 'COTAUMOD'
         IF (carbon_cycle_cpl) THEN
             infosend(ids_atmco2)%action = .TRUE. ; infosend(ids_atmco2)%name = 'COATMCO2'