Changeset 996 for LMDZ4/trunk/libf/phylmd/write_histhf.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_histhf.h (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/write_histhf.h

@@ -24 +24 @@
       CALL histwrite_phy(nid_hf,"contfracATM",itau_w,zx_tmp_fi2d)
 c
-cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,pctsrf_new(:,is_ter),zx_tmp_2d)
+cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,pctsrf(:,is_ter),zx_tmp_2d)
       CALL histwrite_phy(nid_hf,"contfracOR",itau_w,
-     .                   pctsrf_new(:,is_ter))
+     .                   pctsrf(:,is_ter))
 c
 cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m,zx_tmp_2d)