Changeset 996 for LMDZ4/trunk/libf/phylmd/write_paramLMDZ_phy.h

Timestamp:

Sep 9, 2008, 3:22:23 PM (16 years ago)

Author:

lsce

Message:

• Modifications liées au calcul des nouveau sous-fractions
• Nettoyage de ocean slab : il reste uniquement la version avec glace de mer forcé
• Nouveaux variables pour distiguer la version et type d'ocean : type_ocean=force/slab/couple, version_ocean=opa8/nemo pour couplé ou version_ocean=sicOBS pour slab

JG

File:

• LMDZ4/trunk/libf/phylmd/write_paramLMDZ_phy.h (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/write_paramLMDZ_phy.h

@@ -7 +7 @@
 c Variables type caractere : plusieurs valeurs possibles
 c
-      IF(ocean.EQ.'force ') THEN
-       zx_tmp_2d(1:iim,1:jjmp1)=1.
-      ELSE IF(ocean.EQ.'slab  ') THEN
+      IF(type_ocean.EQ.'force ') THEN
+       zx_tmp_2d(1:iim,1:jjmp1)=1.
+      ELSE IF(type_ocean.EQ.'slab  ') THEN
        zx_tmp_2d(1:iim,1:jjmp1)=2.
-      ELSE IF(ocean.EQ.'couple') THEN
+      ELSE IF(type_ocean.EQ.'couple') THEN
        zx_tmp_2d(1:iim,1:jjmp1)=3.
       ENDIF
       CALL histwrite(nid_ctesGCM,"ocean",itau_w,
-     .               zx_tmp_2d,iim*jjmp1,ndex2d)
-c
-      IF(ok_slab_sicOBS) THEN
-       zx_tmp_2d(1:iim,1:jjmp1)=1.
-      ELSE
-       zx_tmp_2d(1:iim,1:jjmp1)=0.
-      ENDIF
-      CALL histwrite(nid_ctesGCM,"ok_slab_sicOBS",itau_w,
      .               zx_tmp_2d,iim*jjmp1,ndex2d)
 c