Changeset 3819 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/ini_bilKP_ins.h

Timestamp:

Apr 22, 2015, 6:28:50 PM (10 years ago)

Author:

ymipsl

Message:

Removed all iim et jjm depedency. Replaced by nbp_lon and nbp_lat.
Supress gr_fi_ecrit, replaced by grid1dTo2d_glo

YM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/ini_bilKP_ins.h (modified) (1 diff)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/ini_bilKP_ins.h

@@ -11 +11 @@
          CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
 c
-cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
-cym         DO i = 1, iim
-cym            zx_lon(i,1) = rlon(i+1)
-cym            zx_lon(i,jjmp1) = rlon(i+1)
-cym         ENDDO
          DO ll=1,klev
             znivsig(ll)=REAL(ll)
          ENDDO
-cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
-cym         write(*,*)'zx_lon = ',zx_lon(:,1)
-cym         write(*,*)'zx_lat = ',zx_lat(1,:)
 c
 cIM 280405 BEG