Changeset 9485


Ignore:
Timestamp:
2018-04-14T13:18:45+02:00 (3 years ago)
Author:
clem
Message:

make sure that the double zoom configuration agrif_nordic is restartable. One must have moved the call to sea ice update at the end of step (after integrate_childgrids)

Location:
branches/2017/dev_merge_2017/NEMOGCM/NEMO
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

    r9482 r9485  
    5050# if defined key_agrif 
    5151   USE agrif_ice 
    52    USE agrif_lim3_update 
    5352   USE agrif_lim3_interp 
    5453# endif 
     
    173172         IF( ln_icethd )                CALL ice_cor( kt , 2 )        ! -- Corrections 
    174173         ! 
    175          !                          !==  AGRIF Child to Parent  ==! 
    176 # if defined key_agrif 
    177                                         CALL agrif_update_lim3( kt ) 
    178 # endif 
    179174                                        CALL ice_var_glo2eqv          ! necessary calls (at least for coupling) 
    180175                                        CALL ice_var_agg( 2 )         ! necessary calls (at least for coupling) 
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/step.F90

    r9367 r9485  
    292292      ! AGRIF 
    293293      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<       
    294                          CALL Agrif_Integrate_ChildGrids( stp )   
    295  
    296       IF( Agrif_NbStepint() == 0 ) THEN               ! AGRIF Update  
     294                         CALL Agrif_Integrate_ChildGrids( stp )  ! allows to finish all the Child Grids before updating 
     295 
     296      IF( Agrif_NbStepint() == 0 ) THEN               ! AGRIF Update from zoom N to zoom 1 then to Parent  
    297297!!jc in fact update is useless at last time step, but do it for global diagnostics 
    298                               CALL Agrif_Update_ssh()    ! Update ssh 
    299          IF(.NOT.ln_linssh)   CALL Agrif_Update_vvl()    ! Update vertical scale factors   
    300                               CALL Agrif_Update_Tra()    ! Update active tracers 
    301                               CALL Agrif_Update_Dyn()    ! Update momentum 
     298#if defined key_lim3 
     299                              CALL Agrif_Update_lim3( kstp )   ! update sea-ice 
     300#endif 
     301                              CALL Agrif_Update_ssh()          ! Update ssh 
     302         IF(.NOT.ln_linssh)   CALL Agrif_Update_vvl()          ! Update vertical scale factors   
     303                              CALL Agrif_Update_Tra()          ! Update active tracers 
     304                              CALL Agrif_Update_Dyn()          ! Update momentum 
    302305# if defined key_top 
    303                               CALL Agrif_Update_Trc()    ! Update passive tracers 
     306                              CALL Agrif_Update_Trc()          ! Update passive tracers 
    304307# endif 
    305308      ENDIF 
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/step_oce.F90

    r9250 r9485  
    105105   USE agrif_opa_sponge ! Momemtum and tracers sponges 
    106106   USE agrif_opa_update ! Update (2-way nesting) 
     107#if defined key_lim3 
     108   USE agrif_lim3_update 
     109#endif 
    107110#if defined key_top 
    108111   USE agrif_top_update ! passive tracers update (2-way nesting) 
Note: See TracChangeset for help on using the changeset viewer.