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 2727 for trunk/NEMOGCM/NEMO – NEMO

Changeset 2727 for trunk/NEMOGCM/NEMO


Ignore:
Timestamp:
2011-04-07T14:24:12+02:00 (13 years ago)
Author:
rblod
Message:

Syntax in agrif_user

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

    r2715 r2727  
    154154          
    155155         ! Check run length 
    156          IF( Agrif_IRhot() * (Agrif_Parent(nitend)-Agrif_Parent(nit000)+1) /= (nitend-nit000+1) ) THEN 
     156         IF( Agrif_IRhot() * (Agrif_Parent(nitend)- & 
     157            Agrif_Parent(nit000)+1) .ne. (nitend-nit000+1) ) THEN 
    157158            WRITE(*,*) 'incompatible run length between grids' 
    158             WRITE(*,*) 'parent grid value : ', (Agrif_Parent(nitend)-Agrif_Parent(nit000)+1),' time step' 
    159             WRITE(*,*) 'child  grid value : ', (nitend-nit000+1),' time step' 
    160             WRITE(*,*) 'value on child grid should be: ', Agrif_IRhot() * (Agrif_Parent(nitend)-Agrif_Parent(nit000)+1) 
     159            WRITE(*,*) 'parent grid value : ',(Agrif_Parent(nitend)- & 
     160               Agrif_Parent(nit000)+1),' time step' 
     161            WRITE(*,*) 'child  grid value : ', & 
     162               (nitend-nit000+1),' time step' 
     163            WRITE(*,*) 'value on child grid should be : ', & 
     164               Agrif_IRhot() * (Agrif_Parent(nitend)- & 
     165               Agrif_Parent(nit000)+1) 
    161166            STOP 
    162167         ENDIF 
     
    320325      IF( check_namelist ) THEN 
    321326#  if defined offline      
    322          ! Check time steps            
     327         ! Check time steps 
    323328         IF( nint(Agrif_Rhot()) * nint(rdt) .ne. Agrif_Parent(rdt) ) THEN 
    324329            WRITE(*,*) 'incompatible time step between grids' 
     
    328333            STOP 
    329334         ENDIF 
    330           
     335 
    331336         ! Check run length 
    332          IF( Agrif_IRhot() * (Agrif_Parent(nitend)-Agrif_Parent(nit000)+1) .ne. (nitend-nit000+1) ) THEN 
     337         IF( Agrif_IRhot() * (Agrif_Parent(nitend)- & 
     338            Agrif_Parent(nit000)+1) .ne. (nitend-nit000+1) ) THEN 
    333339            WRITE(*,*) 'incompatible run length between grids' 
    334             WRITE(*,*) 'parent grid value : ', (Agrif_Parent(nitend)-Agrif_Parent(nit000)+1),' time step' 
    335             WRITE(*,*) 'child  grid value : ', (nitend-nit000+1),' time step' 
    336             WRITE(*,*) 'value on child grid should be : ', Agrif_IRhot() * (Agrif_Parent(nitend)-Agrif_Parent(nit000)+1) 
     340            WRITE(*,*) 'parent grid value : ',(Agrif_Parent(nitend)- & 
     341               Agrif_Parent(nit000)+1),' time step' 
     342            WRITE(*,*) 'child  grid value : ', & 
     343               (nitend-nit000+1),' time step' 
     344            WRITE(*,*) 'value on child grid should be : ', & 
     345               Agrif_IRhot() * (Agrif_Parent(nitend)- & 
     346               Agrif_Parent(nit000)+1) 
    337347            STOP 
    338348         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.