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 8836 for branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90 – NEMO

Ignore:
Timestamp:
2017-11-28T15:45:20+01:00 (6 years ago)
Author:
andmirek
Message:

#1953 and #1962 Techinal corrections

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90

    r8831 r8836  
    258258           CALL iom_get( numror, 'frc_t', frc_t, ldxios = lrxios ) 
    259259           CALL iom_get( numror, 'frc_s', frc_s, ldxios = lrxios ) 
    260            IF( ln_linssh ) THEN 
    261               CALL iom_get( numror, 'frc_wn_t', frc_wn_t, ldxios = lrxios ) 
    262               CALL iom_get( numror, 'frc_wn_s', frc_wn_s, ldxios = lrxios ) 
    263            ENDIF 
    264260           CALL iom_get( numror, jpdom_autoglo, 'surf_ini', surf_ini, ldxios = lrxios ) ! ice sheet coupling 
    265261           CALL iom_get( numror, jpdom_autoglo, 'ssh_ini', ssh_ini(:,:), ldxios = lrxios ) 
     
    270266              CALL iom_get( numror, jpdom_autoglo, 'ssh_hc_loc_ini', ssh_hc_loc_ini(:,:), ldxios = lrxios ) 
    271267              CALL iom_get( numror, jpdom_autoglo, 'ssh_sc_loc_ini', ssh_sc_loc_ini(:,:), ldxios = lrxios ) 
     268              CALL iom_get( numror, 'frc_wn_t', frc_wn_t, ldxios = lrxios ) 
     269              CALL iom_get( numror, 'frc_wn_s', frc_wn_s, ldxios = lrxios ) 
    272270           ENDIF 
    273271       ELSE 
     
    312310        CALL iom_rstput( kt, nitrst, numrow, 'frc_t'   , frc_t, ldxios = lwxios) 
    313311        CALL iom_rstput( kt, nitrst, numrow, 'frc_s'   , frc_s, ldxios = lwxios) 
    314         IF( ln_linssh ) THEN 
    315            CALL iom_rstput( kt, nitrst, numrow, 'frc_wn_t', frc_wn_t, ldxios = lwxios) 
    316            CALL iom_rstput( kt, nitrst, numrow, 'frc_wn_s', frc_wn_s, ldxios = lwxios ) 
    317         ENDIF 
    318312        CALL iom_rstput( kt, nitrst, numrow, 'surf_ini', surf_ini, ldxios = lwxios )      ! ice sheet coupling 
    319313        CALL iom_rstput( kt, nitrst, numrow, 'ssh_ini', ssh_ini(:,:), ldxios = lwxios ) 
     
    324318           CALL iom_rstput( kt, nitrst, numrow, 'ssh_hc_loc_ini', ssh_hc_loc_ini(:,:), ldxios = lwxios ) 
    325319           CALL iom_rstput( kt, nitrst, numrow, 'ssh_sc_loc_ini', ssh_sc_loc_ini(:,:), ldxios = lwxios ) 
     320           CALL iom_rstput( kt, nitrst, numrow, 'frc_wn_t', frc_wn_t, ldxios = lwxios) 
     321           CALL iom_rstput( kt, nitrst, numrow, 'frc_wn_s', frc_wn_s, ldxios = lwxios ) 
    326322        ENDIF 
    327323        ! 
     
    373369        CALL iom_set_rstw_var_active('frc_t') 
    374370        CALL iom_set_rstw_var_active('frc_s') 
    375         IF( ln_linssh ) THEN 
    376            CALL iom_set_rstw_var_active('frc_wn_t') 
    377            CALL iom_set_rstw_var_active('frc_wn_s') 
    378         ENDIF 
    379371        CALL iom_set_rstw_var_active('surf_ini') 
    380372        CALL iom_set_rstw_var_active('ssh_ini') 
     
    385377           CALL iom_set_rstw_var_active('ssh_hc_loc_ini') 
    386378           CALL iom_set_rstw_var_active('ssh_sc_loc_ini') 
     379           CALL iom_set_rstw_var_active('frc_wn_t') 
     380           CALL iom_set_rstw_var_active('frc_wn_s') 
    387381        ENDIF 
    388382      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.