Ticket #1214: limitd_me.F90.patch
File limitd_me.F90.patch, 988 bytes (added by ufla, 10 years ago) |
---|
-
NEMO/LIM_SRC_3/limitd_me.F90
153 153 154 154 CALL wrk_alloc( jpi, jpj, jpl, zviold, zvsold, zsmvold ) ! clem 155 155 156 156 ! IF( numit == nstart ) CALL lim_itd_me_init ! Initialization (first time-step only) 157 157 158 158 IF(ln_ctl) THEN 159 159 CALL prt_ctl(tab2d_1=ato_i , clinfo1=' lim_itd_me: ato_i : ', tab2d_2=at_i , clinfo2=' at_i : ') … … 503 503 504 504 CALL wrk_alloc( jpi, jpj, zworka ) 505 505 506 IF( numit == nstart ) CALL lim_itd_me_init ! Initialization (first time-step only) 507 506 508 !------------------------------------------------------------------------------! 507 509 ! 1) Initialize 508 510 !------------------------------------------------------------------------------!