Changeset 1393 for LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/gcm.F
- Timestamp:
- May 27, 2010, 8:51:35 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/gcm.F
r1384 r1393 401 401 nbetatmoy = nday / periodav + 1 402 402 403 if (iflag_phys.eq.1) then 404 ! these initialisations have already been done (via iniacademic) 405 ! if running in SW or Newtonian mode 403 406 c----------------------------------------------------------------------- 404 407 c Initialisation des constantes dynamiques : 405 408 c ------------------------------------------ 406 dtvr = zdtvr407 CALL iniconst409 dtvr = zdtvr 410 CALL iniconst 408 411 409 412 c----------------------------------------------------------------------- 410 413 c Initialisation de la geometrie : 411 414 c -------------------------------- 412 CALL inigeom415 CALL inigeom 413 416 414 417 c----------------------------------------------------------------------- 415 418 c Initialisation du filtre : 416 419 c -------------------------- 417 CALL inifilr 420 CALL inifilr 421 endif ! of if (iflag_phys.eq.1) 418 422 c 419 423 c-----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.