Changeset 8857


Ignore:
Timestamp:
2017-11-30T15:24:15+01:00 (3 years ago)
Author:
andmirek
Message:

#1953 and #1962 handle together setting XIOS restart read and write flags

File:
1 edited

Legend:

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

    r8836 r8857  
    369369      nwrite = nn_write 
    370370      neuler = nn_euler 
    371       IF( TRIM(Agrif_CFixed()) == '0') THEN  
    372        lrxios = ln_xios_read.AND.ln_rstart 
    373       ENDIF 
    374371      IF ( neuler == 1 .AND. .NOT. ln_rstart ) THEN 
    375372         WRITE(ctmp1,*) 'ln_rstart =.FALSE., nn_euler is forced to 0 ' 
     
    439436 
    440437      IF( TRIM(Agrif_CFixed()) == '0' ) THEN 
     438         lrxios = ln_xios_read.AND.ln_rstart 
    441439!set output file type for XIOS based on NEMO namelist  
    442          if (nn_wxios > 0) lwxios = .TRUE.  
     440         IF (nn_wxios > 0) lwxios = .TRUE.  
    443441         nxioso = nn_wxios 
    444442      ELSE 
    445443         IF(lwp) THEN 
    446444            write(numout,*) 
    447             write(numout,*) "AGRIF: nn_wxios will be ingored. See setting for NEMO"  
     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" 
    448447            write(numout,*) 
    449448         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.