New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9482 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_user.F90 – NEMO

Ignore:
Timestamp:
2018-04-13T19:03:31+02:00 (6 years ago)
Author:
clem
Message:

The configuration Agrif_Nordic is now restartable for any nn_fsbc(Parent) and nn_fsbc(Child). However we do not authorized nn_fsbc(Child) to be larger than 1 because otherwise it breaks the CFL too easily. The simulation would still run but the results would not be satisfactory. I still have to verify this point with the last version of the code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

    r9449 r9482  
    307307   USE agrif_top_update 
    308308#endif 
     309#if defined key_lim3 
     310   USE agrif_lim3_update 
     311#endif 
    309312   ! 
    310313   IMPLICIT NONE 
     
    323326!!   CALL Agrif_Update_tke(0) 
    324327 
     328#if defined key_lim3 
     329   CALL agrif_update_lim3(0) 
     330#endif 
     331    
    325332   CALL Agrif_ChildGrid_To_ParentGrid() 
    326333   CALL Agrif_Update_ini() 
     
    497504   USE agrif_ice 
    498505   USE in_out_manager 
    499    USE agrif_lim3_update 
    500506   USE agrif_lim3_interp 
    501507   USE lib_mpp 
     
    510516   ! Controls 
    511517 
    512    ! clem: For some reason, nn_fsbc(child)/=1 does not work properly (signal is largely 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) 
    513519   !          the run must satisfy CFL=Uice/(dx/dt) < 0.6/nn_fsbc(child) 
    514520   !          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 do not 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') 
    517523 
    518524   ! stop if rhot * nn_fsbc(parent) /= N * nn_fsbc(child) with N being integer 
     
    528534   lim_nbstep = 0 
    529535    
    530    ! Update in case 2 ways 
    531    !---------------------- 
    532    CALL agrif_update_lim3(0) 
    533  
    534536   ! 
    535537END SUBROUTINE Agrif_InitValues_cont_lim3 
Note: See TracChangeset for help on using the changeset viewer.