Changeset 879 for LMDZ4/trunk/libf/phylmd/ini_paramLMDZ_phy.h

Timestamp:

Jan 17, 2008, 10:20:32 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Suite de la bascule vers une physique avec thermiques, nouvelle convection, poche froide ...
LF

File:

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

LMDZ4/trunk/libf/phylmd/ini_paramLMDZ_phy.h

@@ -10 +10 @@
 c
        CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
+       if (iim.gt.1) then
        DO i = 1, iim
          zx_lon(i,1) = rlon(i+1)
          zx_lon(i,jjmp1) = rlon(i+1)
        ENDDO
+       endif
        CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
 c