- Timestamp:
- 2018-04-13T19:03:31+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_user.F90
r9449 r9482 307 307 USE agrif_top_update 308 308 #endif 309 #if defined key_lim3 310 USE agrif_lim3_update 311 #endif 309 312 ! 310 313 IMPLICIT NONE … … 323 326 !! CALL Agrif_Update_tke(0) 324 327 328 #if defined key_lim3 329 CALL agrif_update_lim3(0) 330 #endif 331 325 332 CALL Agrif_ChildGrid_To_ParentGrid() 326 333 CALL Agrif_Update_ini() … … 497 504 USE agrif_ice 498 505 USE in_out_manager 499 USE agrif_lim3_update500 506 USE agrif_lim3_interp 501 507 USE lib_mpp … … 510 516 ! Controls 511 517 512 ! clem: For some reason, nn_fsbc(child)/=1 does not work properly (signal islargely degraded by the agrif zoom)518 ! clem: For some reason, nn_fsbc(child)/=1 does not work properly (signal can be largely degraded by the agrif zoom) 513 519 ! the run must satisfy CFL=Uice/(dx/dt) < 0.6/nn_fsbc(child) 514 520 ! therefore, if nn_fsbc(child)>1 one must reduce the time-step in proportion to nn_fsbc(child), which is not acceptable 515 ! If a solution is found, the following stop could be removed 516 IF( nn_fsbc > 1 ) CALL ctl_stop('nn_fsbc(child) must be set to 1 otherwise agrif and lim3 donot work properly')521 ! If a solution is found, the following stop could be removed because the rest of the code take nn_fsbc(child) into account 522 IF( nn_fsbc > 1 ) CALL ctl_stop('nn_fsbc(child) must be set to 1 otherwise agrif and sea-ice may not work properly') 517 523 518 524 ! stop if rhot * nn_fsbc(parent) /= N * nn_fsbc(child) with N being integer … … 528 534 lim_nbstep = 0 529 535 530 ! Update in case 2 ways531 !----------------------532 CALL agrif_update_lim3(0)533 534 536 ! 535 537 END SUBROUTINE Agrif_InitValues_cont_lim3
Note: See TracChangeset
for help on using the changeset viewer.