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 10115 for NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/NST_SRC/agrif_user.F90 – NEMO

Ignore:
Timestamp:
2018-09-12T15:59:13+02:00 (6 years ago)
Author:
cbricaud
Message:

phase 3.6 coarsening branch with nemo_3.6_rev9192

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

    r7256 r10115  
    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.