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 8650 for branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 – NEMO

Ignore:
Timestamp:
2017-10-20T17:46:49+02:00 (6 years ago)
Author:
andmirek
Message:

fix writing restart in domvvl.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r8644 r8650  
    209209      ENDIF    
    210210      ! automatic definitions of some of the xml attributs 
    211       if(lwp) write(numout,*) TRIM(cdname),' ',TRIM(wxios_context),' TEST1' 
    212211      IF( TRIM(cdname) == TRIM(wxios_context) ) THEN 
    213212!set names of the fields in restart file IF using XIOS to read/write data 
     
    249248!Warn if variable is not in defined in rst_wfields 
    250249   IF(.NOT.is_set) THEN 
    251       IF(lwp) write(numout,*) 'variable ', field ,' is available for writing but not defined'  
     250      IF(lwp) write(numout,*) 'E R R O R in set_rstw_var_active: variable ', field ,' is available for writing but not defined'  
     251        nstop = nstop + 1 
    252252   ENDIF 
    253253 
     
    389389        i = i + 1; fields(i)%vname="surf_ini";       fields(i)%grid="grid_N" 
    390390        i = i + 1; fields(i)%vname="e3t_b";          fields(i)%grid="grid_N_3D" 
    391         i = i + 1; fields(i)%vname="e3t_n";          fields(i)%grid="grid_N_3D" 
    392391        i = i + 1; fields(i)%vname="mxln";           fields(i)%grid="grid_N_3D" 
    393         i = i + 1; fields(i)%vname="e3t_m";          fields(i)%grid="grid_N_3D" 
     392 
     393        IF( i-1 > max_rst_fields) THEN 
     394        IF(lwp) write(numout,*) 'E R R O R : set_rst_vars SIZE of RST_FIELD array is too small' 
     395        nstop = nstop + 1 
     396        ENDIF 
     397 
    394398   END SUBROUTINE set_rst_vars 
    395399 
Note: See TracChangeset for help on using the changeset viewer.