Changeset 4727 for LMDZ6/branches/LMDZ_ECRad/libf/dyn3dmem/gcm.F90
- Timestamp:
- Oct 19, 2023, 4:02:57 PM (11 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/dyn3dmem/gcm.F90
r4482 r4727 28 28 itau_dyn,itau_phy,day_ini,jD_ref,jH_ref,day_end, & 29 29 dt,hour_ini,itaufin 30 #ifdef CPP_XIOS31 30 USE mod_xios_dyn3dmem, ONLY: xios_dyn3dmem_init 32 #endif33 31 34 32 IMPLICIT NONE … … 457 455 458 456 ! setting up DYN3D/XIOS inerface 459 #ifdef CPP_XIOS 460 if (ok_dyn_xios) then 461 CALL xios_dyn3dmem_init(xios_cal_type, anref, moisref, jourref,heureref, an, & 457 if (ok_dyn_xios) then 458 CALL xios_dyn3dmem_init(xios_cal_type, anref, moisref, jourref,heureref, an, & 462 459 mois, jour, heure, zdtvr) 463 460 endif 464 #endif465 461 466 462 ! #endif of #ifdef CPP_IOIPSL
Note: See TracChangeset
for help on using the changeset viewer.