- Timestamp:
- 2020-04-08T21:37:59+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev _r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF5 ^/vendors/AGRIF/dev@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 9 # SETTE 10 ^/utils/CI/sette@HEAD sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/stepLF.F90
r12680 r12724 107 107 ! 108 108 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 109 ! model timestep 110 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 111 ! 112 IF( l_1st_euler ) THEN 113 ! start or restart with Euler 1st time-step 114 rDt = rn_Dt 115 r1_Dt = 1._wp / rDt 116 ENDIF 117 ! 118 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 119 109 120 ! update I/O and calendar 110 121 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< … … 356 367 IF( kstp == nitend .OR. indic < 0 ) THEN 357 368 CALL iom_context_finalize( cxios_context ) ! needed for XIOS+AGRIF 358 369 IF(lrxios) CALL iom_context_finalize( crxios_context ) 359 370 IF( ln_crs ) CALL iom_context_finalize( trim(cxios_context)//"_crs" ) ! 360 371 ENDIF 361 372 #endif 373 ! 374 IF( l_1st_euler ) THEN ! recover Leap-frog timestep 375 rDt = 2._wp * rn_Dt 376 r1_Dt = 1._wp / rDt 377 l_1st_euler = .FALSE. 378 ENDIF 362 379 ! 363 380 IF( ln_timing ) CALL timing_stop('stplf')
Note: See TracChangeset
for help on using the changeset viewer.