Changeset 9510


Ignore:
Timestamp:
2018-04-27T11:55:57+02:00 (2 years ago)
Author:
clem
Message:

fix restartability with SAS module =⇒ SAS_BIPER is now restartable

Location:
branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC/step.F90

    r9367 r9510  
    3838#if defined key_agrif 
    3939   USE agrif_oce, ONLY: lk_agrif_debug 
     40#if defined key_lim3 
     41   USE agrif_lim3_update 
     42#endif 
    4043#endif 
    4144    
     
    4649 
    4750   !!---------------------------------------------------------------------- 
    48    !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
     51   !! NEMO/OPA 4.0 , NEMO Consortium (2017) 
    4952   !! $Id$ 
    5053   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
     
    104107      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<       
    105108                             CALL Agrif_Integrate_ChildGrids( stp )   
     109 
     110      IF( Agrif_NbStepint() == 0 ) THEN               ! AGRIF Update from zoom N to zoom 1 then to Parent  
     111#if defined key_lim3 
     112                             CALL Agrif_Update_lim3( kstp )   ! update sea-ice 
     113#endif 
     114      ENDIF 
    106115#endif 
    107116                              
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC/stpctl.F90

    r9441 r9510  
    7070         IF( lwm ) THEN 
    7171            istatus = NF90_CREATE( 'run.stat.nc', NF90_CLOBBER, idrun ) 
    72             istatus = NF90_DEF_DIM( idrun, 'time', NF90_UNLIMITED, idtime ) 
    73             istatus = NF90_DEF_VAR( idrun, 'abs_ssh_max', NF90_DOUBLE, (/ idtime /), idssh ) 
    74             istatus = NF90_DEF_VAR( idrun,   'abs_u_max', NF90_DOUBLE, (/ idtime /), idu ) 
    75             istatus = NF90_DEF_VAR( idrun,       's_min', NF90_DOUBLE, (/ idtime /), ids ) 
     72            istatus = NF90_DEF_DIM( idrun, 'time'     , NF90_UNLIMITED, idtime ) 
     73            istatus = NF90_DEF_VAR( idrun, 'vt_i_max' , NF90_DOUBLE, (/ idtime /), idssh ) 
     74            istatus = NF90_DEF_VAR( idrun, 'abs_u_max', NF90_DOUBLE, (/ idtime /), idu ) 
     75            istatus = NF90_DEF_VAR( idrun, 'tm_i_min' , NF90_DOUBLE, (/ idtime /), ids ) 
    7676            istatus = NF90_ENDDEF(idrun) 
    7777         ENDIF 
     
    106106      END IF 
    107107      ! 
    108 9400  FORMAT(' it :', i8, '    |ssh|_max: ', D23.16, ' |U|_max: ', D23.16,' S_min: ', D23.16) 
     1089400  FORMAT(' it :', i8, '    vt_i_max: ', D23.16, ' |u|_max: ', D23.16,' tm_i_min: ', D23.16) 
    109109      ! 
    110110   END SUBROUTINE stp_ctl 
Note: See TracChangeset for help on using the changeset viewer.