Changeset 1140 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/etat0_netcdf.F
- Timestamp:
- Mar 30, 2009, 4:46:54 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/etat0_netcdf.F
r1117 r1140 5 5 c 6 6 SUBROUTINE etat0_netcdf (interbar, masque) 7 7 #ifdef CPP_EARTH 8 8 USE startvar 9 9 USE ioipsl … … 14 14 USE filtreg_mod 15 15 USE infotrac 16 #endif 17 !#endif of #ifdef CPP_EARTH 16 18 ! 17 19 IMPLICIT NONE … … 25 27 ! .KLON=KFDIA-KIDIA+1,KLEV=llm 26 28 ! 29 #ifdef CPP_EARTH 27 30 #include "comgeom2.h" 28 31 #include "comvert.h" … … 31 34 #include "dimsoil.h" 32 35 #include "temps.h" 33 ! 36 #endif 37 !#endif of #ifdef CPP_EARTH 38 ! arguments: 34 39 LOGICAL interbar 40 REAL :: masque(iip1,jjp1) 41 42 #ifdef CPP_EARTH 43 ! local variables: 35 44 REAL :: latfi(klon), lonfi(klon) 36 REAL :: orog(iip1,jjp1), rugo(iip1,jjp1), masque(iip1,jjp1),45 REAL :: orog(iip1,jjp1), rugo(iip1,jjp1), 37 46 . psol(iip1, jjp1), phis(iip1, jjp1) 38 47 REAL :: p3d(iip1, jjp1, llm+1) … … 144 153 ! 145 154 preff = 101325. 155 pa = 50000. 146 156 unskap = 1./kappa 147 157 ! … … 167 177 print*,'dtvr',dtvr 168 178 169 CALL inicons 0()179 CALL iniconst() 170 180 CALL inigeom() 171 181 ! … … 754 764 print*,'entree histclo' 755 765 CALL histclo 766 767 #endif 768 !#endif of #ifdef CPP_EARTH 756 769 RETURN 757 770 !
Note: See TracChangeset
for help on using the changeset viewer.