Changeset 644 for LMDZ4/trunk/libf/phylmd/write_histISCCP.h

Timestamp:

May 25, 2005, 3:10:09 PM (19 years ago)

Author:

Laurent Fairhead

Message:

Synchronisation avec tous les diagnostiques de Ionela IM
Inclusion du slab ocean IM
LF

File:

• LMDZ4/trunk/libf/phylmd/write_histISCCP.h (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/write_histISCCP.h

@@ -8 +8 @@
 c
        itau_w = itau_phy + itap
+c
+       IF(type_run.EQ."ENSP".OR.type_run.EQ."CLIM") THEN
 c
         DO k=1,kmaxm1
@@ -24 +26 @@
      .                 zx_tmp_2d,iim*jjmp1,ndex2d)
 c
+        ELSE IF(type_run.EQ."AMIP".OR.type_run.EQ."CFMI") THEN
+c
+         DO k=1, kmaxm1
+          DO l=1, lmaxm1
+c
+         zx_tmp_fi2d(1:klon)=fq_isccp(1:klon,k,l)*100.
+         CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,
+     .                    zx_tmp_2d)
+c
+cIM: champ 2d : (lon,lat) pour un tau et une pc fixes
+c
+         CALL histwrite(nid_isccp,pclev(l)//taulev(k),itau_w,
+     .                  zx_tmp_2d,iim*jjmp1,ndex2d)
+         ENDDO !l
+        ENDDO !k
+c
+        CALL gr_fi_ecrit(1, klon,iim,jjmp1,nbsunlit(1,:),zx_tmp_2d)
+        CALL histwrite(nid_isccp,"nsunlit",itau_w,
+     .                 zx_tmp_2d,iim*jjmp1,ndex2d)
+c
+       ENDIF
+c
        if (ok_sync) then
         call histsync(nid_isccp)