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 8858 – NEMO

Changeset 8858


Ignore:
Timestamp:
2017-11-30T15:50:38+01:00 (7 years ago)
Author:
andmirek
Message:

#1953 and #1962 tidy up prints for previous commit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r8857 r8858  
    350350         WRITE(numout,*) '      NetCDF chunksize (bytes)        nn_chunksz = ', nn_chunksz 
    351351         WRITE(numout,*) '      IS coupling at the restart step ln_iscpl   = ', ln_iscpl 
    352          WRITE(numout,*) '      READ restart for a single file using XIOS ln_xios_read =', ln_xios_read 
    353          IF( TRIM(Agrif_CFixed()) /= '0') & 
    354      &       WRITE(numout,*) '      READ restart for a single file using XIOS WILL not use AGRIF setting.' 
    355          IF( TRIM(Agrif_CFixed()) == '0' ) & 
    356      &      WRITE(numout,*) '      Write restart using XIOS        nn_wxios   = ', nn_wxios 
     352         IF( TRIM(Agrif_CFixed()) == '0' ) THEN 
     353            WRITE(numout,*) '      READ restart for a single file using XIOS ln_xios_read =', ln_xios_read 
     354            WRITE(numout,*) '      Write restart using XIOS        nn_wxios   = ', nn_wxios 
     355         ELSE 
     356            WRITE(numout,*) "      AGRIF: nn_wxios will be ingored. See setting for parent" 
     357            WRITE(numout,*) "      AGRIF: ln_xios_read will be ingored. See setting for parent" 
     358         ENDIF 
    357359      ENDIF 
    358360 
     
    440442         IF (nn_wxios > 0) lwxios = .TRUE.  
    441443         nxioso = nn_wxios 
    442       ELSE 
    443          IF(lwp) THEN 
    444             write(numout,*) 
    445             write(numout,*) "AGRIF: nn_wxios will be ingored. See setting for parent"  
    446             write(numout,*) "AGRIF: ln_xios_read will be ingored. See setting for parent" 
    447             write(numout,*) 
    448          ENDIF 
    449444      ENDIF 
    450445 
Note: See TracChangeset for help on using the changeset viewer.