Changeset 1264
- Timestamp:
- Nov 20, 2009, 9:29:48 AM (15 years ago)
- Location:
- LMDZ4/branches/LMDZ4-dev/libf
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3d/gcm.F
r1247 r1264 333 333 jD_ref = int(jD_ref) 334 334 335 call ioconf_startdate( annee_ref,1,day_ref, 0.)335 call ioconf_startdate(INT(jD_ref), jH_ref) 336 336 337 337 write(lunout,*)'DEBUG' -
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/gcm.F
r1247 r1264 349 349 jD_ref = int(jD_ref) 350 350 351 call ioconf_startdate( annee_ref,1,day_ref, 0.)351 call ioconf_startdate(INT(jD_ref), jH_ref) 352 352 353 353 write(lunout,*)'DEBUG' -
LMDZ4/branches/LMDZ4-dev/libf/phylmd/phyetat0.F
r1227 r1264 869 869 c f0(ig)=1.e-5 870 870 c f0 871 CALL get_field(" f0",f0,found)871 CALL get_field("F0",f0,found) 872 872 IF (.NOT. found) THEN 873 873 PRINT*, "phyetat0: Le champ <f0> est absent"
Note: See TracChangeset
for help on using the changeset viewer.