Changeset 8636


Ignore:
Timestamp:
2017-10-18T17:25:03+02:00 (3 years ago)
Author:
jchanut
Message:

Add stop if uncompatible time steps between AGRIF grids, #1892

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

    r6204 r8636  
    241241         WRITE(cl_check2,*)  NINT(rdt) 
    242242         WRITE(cl_check3,*)  NINT(Agrif_Parent(rdt)/Agrif_Rhot()) 
    243          CALL ctl_warn( 'incompatible time step between grids',   & 
     243         CALL ctl_stop( 'incompatible time step between grids',   & 
    244244               &               'parent grid value : '//cl_check1    ,   &  
    245245               &               'child  grid value : '//cl_check2    ,   &  
    246                &               'value on child grid will be changed to : '//cl_check3 ) 
    247          rdt=Agrif_Parent(rdt)/Agrif_Rhot() 
     246               &               'value on child grid must be changed to : '//cl_check3 ) 
     247!         rdt=Agrif_Parent(rdt)/Agrif_Rhot() 
    248248      ENDIF 
    249249 
     
    254254         WRITE(cl_check2,*)   Agrif_Parent(nitend)   *Agrif_IRhot() 
    255255         CALL ctl_warn( 'incompatible run length between grids'               ,   & 
    256                &              ' nit000 on fine grid will be change to : '//cl_check1,   & 
    257                &              ' nitend on fine grid will be change to : '//cl_check2    ) 
     256               &              ' nit000 on fine grid will be changed to : '//cl_check1,   & 
     257               &              ' nitend on fine grid will be changed to : '//cl_check2    ) 
    258258         nit000 = (Agrif_Parent(nit000)-1)*Agrif_IRhot() + 1 
    259259         nitend =  Agrif_Parent(nitend)   *Agrif_IRhot() 
     
    610610         WRITE(cl_check2,*)  rdt 
    611611         WRITE(cl_check3,*)  rdt*Agrif_Rhot() 
    612          CALL ctl_warn( 'incompatible time step between grids',   & 
     612         CALL ctl_stop( 'incompatible time step between grids',   & 
    613613               &               'parent grid value : '//cl_check1    ,   &  
    614614               &               'child  grid value : '//cl_check2    ,   &  
    615                &               'value on child grid will be changed to  & 
     615               &               'value on child grid must be changed to  & 
    616616               &               :'//cl_check3  ) 
    617          rdt=rdt*Agrif_Rhot() 
     617!         rdt=rdt*Agrif_Rhot() 
    618618      ENDIF 
    619619 
     
    624624         WRITE(cl_check2,*)   Agrif_Parent(nitend)   *Agrif_IRhot() 
    625625         CALL ctl_warn( 'incompatible run length between grids'               ,   & 
    626                &              ' nit000 on fine grid will be change to : '//cl_check1,   & 
    627                &              ' nitend on fine grid will be change to : '//cl_check2    ) 
     626               &              ' nit000 on fine grid will be changed to : '//cl_check1,   & 
     627               &              ' nitend on fine grid will be changed to : '//cl_check2    ) 
    628628         nit000 = (Agrif_Parent(nit000)-1)*Agrif_IRhot() + 1 
    629629         nitend =  Agrif_Parent(nitend)   *Agrif_IRhot() 
Note: See TracChangeset for help on using the changeset viewer.