Changeset 1425 for LMDZ4/trunk/libf/dyn3dpar/etat0_netcdf.F90
- Timestamp:
- Sep 2, 2010, 3:45:23 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3dpar/etat0_netcdf.F90
r1406 r1425 11 11 ! Note: This routine is designed to work for Earth 12 12 !------------------------------------------------------------------------------- 13 USE control_mod 13 14 #ifdef CPP_EARTH 14 15 USE startvar … … 28 29 USE netcdf, ONLY : NF90_OPEN, NF90_NOWRITE, NF90_CLOSE, NF90_NOERR 29 30 #endif 30 USE control_mod31 31 IMPLICIT NONE 32 32 !------------------------------------------------------------------------------- … … 114 114 !------------------------------------------------------------------------------- 115 115 REAL :: alp_offset 116 LOGICALfound116 logical found 117 117 118 118 !--- Constants … … 505 505 wake_cstar(:) = 0. 506 506 wake_fip(:) = 0. 507 wake_pe = 0. 508 fm_therm = 0. 509 entr_therm = 0. 510 detr_therm = 0. 511 507 512 CALL fonte_neige_init(run_off_lic_0) 508 513 CALL pbl_surface_init( qsol, fder, snsrf, qsolsrf, evap, frugs, agesno, tsoil )
Note: See TracChangeset
for help on using the changeset viewer.