- Timestamp:
- Apr 22, 2003, 1:13:31 PM (22 years ago)
- Location:
- LMDZ.3.3/branches/rel-LF/libf/dyn3d
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/dyn3d/gcm.F
r459 r462 372 372 c IF( MOD( itau, 10* day_step ).EQ.0 ) THEN 373 373 CALL test_period ( ucov,vcov,teta,q,p,phis ) 374 PRINT *,' ---- Test_period apres continue OK ! -----', itau374 c PRINT *,' ---- Test_period apres continue OK ! -----', itau 375 375 c ENDIF 376 376 c -
LMDZ.3.3/branches/rel-LF/libf/dyn3d/vlsplt.F
r392 r462 348 348 349 349 IF(n0.gt.1) THEN 350 351 350 c PRINT*,'Nombre de points pour lesquels on advect plus que le' 351 c & ,'contenu de la maille : ',n0 352 352 353 353 DO l=1,llm
Note: See TracChangeset
for help on using the changeset viewer.