Changeset 8651


Ignore:
Timestamp:
2017-10-23T13:07:22+02:00 (3 years ago)
Author:
andmirek
Message:

change names of the new subroutines

Location:
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC
Files:
14 edited

Legend:

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

    r8644 r8651  
    371371      IF(lwxios) THEN 
    372372! define variables in restart file when writing with XIOS 
    373         CALL set_rstw_var_active('frc_v') 
    374         CALL set_rstw_var_active('frc_t') 
    375         CALL set_rstw_var_active('frc_s') 
     373        CALL iom_set_rstw_var_active('frc_v') 
     374        CALL iom_set_rstw_var_active('frc_t') 
     375        CALL iom_set_rstw_var_active('frc_s') 
    376376        IF( ln_linssh ) THEN 
    377            CALL set_rstw_var_active('frc_wn_t') 
    378            CALL set_rstw_var_active('frc_wn_s') 
     377           CALL iom_set_rstw_var_active('frc_wn_t') 
     378           CALL iom_set_rstw_var_active('frc_wn_s') 
    379379        ENDIF 
    380         CALL set_rstw_var_active('surf_ini') 
    381         CALL set_rstw_var_active('ssh_ini') 
    382         CALL set_rstw_var_active('e3t_ini') 
    383         CALL set_rstw_var_active('hc_loc_ini') 
    384         CALL set_rstw_var_active('sc_loc_ini') 
     380        CALL iom_set_rstw_var_active('surf_ini') 
     381        CALL iom_set_rstw_var_active('ssh_ini') 
     382        CALL iom_set_rstw_var_active('e3t_ini') 
     383        CALL iom_set_rstw_var_active('hc_loc_ini') 
     384        CALL iom_set_rstw_var_active('sc_loc_ini') 
    385385        IF( ln_linssh ) THEN 
    386            CALL set_rstw_var_active('ssh_hc_loc_ini') 
    387            CALL set_rstw_var_active('ssh_sc_loc_ini') 
     386           CALL iom_set_rstw_var_active('ssh_hc_loc_ini') 
     387           CALL iom_set_rstw_var_active('ssh_sc_loc_ini') 
    388388        ENDIF 
    389389      ENDIF 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

    r8644 r8651  
    146146      IF( lwxios ) THEN 
    147147! define variables in restart file when writing with XIOS 
    148           CALL set_rstw_var_active('kt') 
    149           CALL set_rstw_var_active('ndastp') 
    150           CALL set_rstw_var_active('adatrj') 
    151           CALL set_rstw_var_active('ntime') 
     148          CALL iom_set_rstw_var_active('kt') 
     149          CALL iom_set_rstw_var_active('ndastp') 
     150          CALL iom_set_rstw_var_active('adatrj') 
     151          CALL iom_set_rstw_var_active('ntime') 
    152152      ENDIF 
    153153 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r8650 r8651  
    4848   USE timing         ! Timing 
    4949   USE iom_def, ONLY:lwxios, wxioso, rst_wfields ! write restart flag and output type 
    50    USE iom, ONLY : set_rst_vars, set_rstw_core 
     50   USE iom, ONLY : iom_set_rst_vars, iom_set_rstw_core 
    5151   IMPLICIT NONE 
    5252   PRIVATE 
     
    132132      IF( lwxios ) THEN 
    133133!define names for restart write and set core output (restart.F90) 
    134          CALL set_rst_vars(rst_wfields) 
    135          CALL set_rstw_core() 
     134         CALL iom_set_rst_vars(rst_wfields) 
     135         CALL iom_set_rstw_core() 
    136136      ENDIF 
    137137      ! 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

    r8650 r8651  
    245245      IF(lwxios) THEN 
    246246! define variables in restart file when writing with XIOS 
    247          CALL set_rstw_var_active('e3t_b') 
    248          CALL set_rstw_var_active('e3t_n') 
     247         CALL iom_set_rstw_var_active('e3t_b') 
     248         CALL iom_set_rstw_var_active('e3t_n') 
    249249         !                                           ! ----------------------- ! 
    250250         IF( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN  ! z_tilde and layer cases ! 
    251251            !                                        ! ----------------------- ! 
    252             CALL set_rstw_var_active('tilde_e3t_b') 
    253             CALL set_rstw_var_active('tilde_e3t_n') 
     252            CALL iom_set_rstw_var_active('tilde_e3t_b') 
     253            CALL iom_set_rstw_var_active('tilde_e3t_n') 
    254254         END IF 
    255255         !                                           ! -------------!     
    256256         IF( ln_vvl_ztilde ) THEN                    ! z_tilde case ! 
    257257            !                                        ! ------------ ! 
    258             CALL set_rstw_var_active('hdiv_lf') 
     258            CALL iom_set_rstw_var_active('hdiv_lf') 
    259259         ENDIF 
    260260         ! 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r8644 r8651  
    13271327      IF( lwxios ) THEN 
    13281328! define variables in restart file when writing with XIOS 
    1329          CALL set_rstw_var_active('ub2_b') 
    1330          CALL set_rstw_var_active('vb2_b') 
     1329         CALL iom_set_rstw_var_active('ub2_b') 
     1330         CALL iom_set_rstw_var_active('vb2_b') 
    13311331         ! 
    13321332         IF (.NOT.ln_bt_av) THEN 
    1333             CALL set_rstw_var_active('sshbb_e') 
    1334             CALL set_rstw_var_active('ubb_e') 
    1335             CALL set_rstw_var_active('vbb_e') 
    1336             CALL set_rstw_var_active('sshb_e') 
    1337             CALL set_rstw_var_active('ub_e') 
    1338             CALL set_rstw_var_active('vb_e') 
     1333            CALL iom_set_rstw_var_active('sshbb_e') 
     1334            CALL iom_set_rstw_var_active('ubb_e') 
     1335            CALL iom_set_rstw_var_active('vbb_e') 
     1336            CALL iom_set_rstw_var_active('sshb_e') 
     1337            CALL iom_set_rstw_var_active('ub_e') 
     1338            CALL iom_set_rstw_var_active('vb_e') 
    13391339         ENDIF 
    13401340#if defined key_agrif 
    13411341         ! Save time integrated fluxes 
    13421342         IF ( .NOT.Agrif_Root() ) THEN 
    1343             CALL set_rstw_var_active('ub2_i_b') 
    1344             CALL set_rstw_var_active('vb2_i_b') 
     1343            CALL iom_set_rstw_var_active('ub2_i_b') 
     1344            CALL iom_set_rstw_var_active('vb2_i_b') 
    13451345         ENDIF 
    13461346#endif 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r8650 r8651  
    6666   PRIVATE iom_set_domain_attr, iom_set_axis_attr, iom_set_field_attr, iom_set_file_attr, iom_get_file_attr, iom_set_grid_attr 
    6767   PRIVATE set_grid, set_grid_bounds, set_scalar, set_xmlatt, set_mooring, iom_update_file_name, iom_sdate 
    68    PRIVATE set_rst_context, set_rstw_active 
    69    PUBLIC set_rstw_var_active, set_rst_vars 
     68   PRIVATE iom_set_rst_context, iom_set_rstw_active 
     69   PUBLIC iom_set_rstw_var_active, iom_set_rst_vars 
    7070# endif 
    7171 
     
    211211      IF( TRIM(cdname) == TRIM(wxios_context) ) THEN 
    212212!set names of the fields in restart file IF using XIOS to read/write data 
    213        CALL set_rst_context() 
    214        CALL set_rst_vars(rst_wfields) 
     213       CALL iom_set_rst_context() 
     214       CALL iom_set_rst_vars(rst_wfields) 
    215215!set which fields are to be read from restart file 
    216        CALL set_rstw_active(fname) 
     216       CALL iom_set_rstw_active(fname) 
    217217      ELSE 
    218218       CALL set_xmlatt 
     
    232232   END SUBROUTINE iom_init 
    233233 
    234    SUBROUTINE set_rstw_var_active(field) 
     234   SUBROUTINE iom_set_rstw_var_active(field) 
    235235   CHARACTER(len = *), INTENT(IN) :: field 
    236236   INTEGER :: i 
     
    248248!Warn if variable is not in defined in rst_wfields 
    249249   IF(.NOT.is_set) THEN 
    250       IF(lwp) write(numout,*) 'E R R O R in set_rstw_var_active: variable ', field ,' is available for writing but not defined'  
     250      IF(lwp) write(numout,*) 'E R R O R in iom_set_rstw_var_active: variable ', field ,' is available for writing but not defined'  
    251251        nstop = nstop + 1 
    252252   ENDIF 
    253253 
    254    END SUBROUTINE set_rstw_var_active 
     254   END SUBROUTINE iom_set_rstw_var_active 
    255255   
    256    SUBROUTINE set_rstw_core() 
     256   SUBROUTINE iom_set_rstw_core() 
    257257!from restart.F90 
    258    CALL set_rstw_var_active("rdt") 
     258   CALL iom_set_rstw_var_active("rdt") 
    259259   IF ( .NOT. ln_diurnal_only ) THEN 
    260         CALL set_rstw_var_active('ub'  ) 
    261         CALL set_rstw_var_active('vb'  ) 
    262         CALL set_rstw_var_active('tb'  ) 
    263         CALL set_rstw_var_active('sb'  ) 
    264         CALL set_rstw_var_active('sshb') 
     260        CALL iom_set_rstw_var_active('ub'  ) 
     261        CALL iom_set_rstw_var_active('vb'  ) 
     262        CALL iom_set_rstw_var_active('tb'  ) 
     263        CALL iom_set_rstw_var_active('sb'  ) 
     264        CALL iom_set_rstw_var_active('sshb') 
    265265        ! 
    266         CALL set_rstw_var_active('un'  ) 
    267         CALL set_rstw_var_active('vn'  ) 
    268         CALL set_rstw_var_active('tn'  ) 
    269         CALL set_rstw_var_active('sn'  ) 
    270         CALL set_rstw_var_active('sshn') 
    271         CALL set_rstw_var_active('rhop') 
     266        CALL iom_set_rstw_var_active('un'  ) 
     267        CALL iom_set_rstw_var_active('vn'  ) 
     268        CALL iom_set_rstw_var_active('tn'  ) 
     269        CALL iom_set_rstw_var_active('sn'  ) 
     270        CALL iom_set_rstw_var_active('sshn') 
     271        CALL iom_set_rstw_var_active('rhop') 
    272272     ! extra variable needed for the ice sheet coupling 
    273273        IF ( ln_iscpl ) THEN 
    274              CALL set_rstw_var_active('tmask') 
    275              CALL set_rstw_var_active('umask') 
    276              CALL set_rstw_var_active('vmask') 
    277              CALL set_rstw_var_active('smask') 
    278              CALL set_rstw_var_active('e3t_n') 
    279              CALL set_rstw_var_active('e3u_n') 
    280              CALL set_rstw_var_active('e3v_n') 
    281              CALL set_rstw_var_active('gdepw_n') 
     274             CALL iom_set_rstw_var_active('tmask') 
     275             CALL iom_set_rstw_var_active('umask') 
     276             CALL iom_set_rstw_var_active('vmask') 
     277             CALL iom_set_rstw_var_active('smask') 
     278             CALL iom_set_rstw_var_active('e3t_n') 
     279             CALL iom_set_rstw_var_active('e3u_n') 
     280             CALL iom_set_rstw_var_active('e3v_n') 
     281             CALL iom_set_rstw_var_active('gdepw_n') 
    282282        END IF 
    283283      ELSE 
    284         CALL set_rstw_var_active('Dsst') 
     284        CALL iom_set_rstw_var_active('Dsst') 
    285285      ENDIF 
    286286!from trasbc.F90 
    287          CALL set_rstw_var_active('sbc_hc_b') 
    288          CALL set_rstw_var_active('sbc_sc_b') 
    289    END SUBROUTINE set_rstw_core 
    290  
    291    SUBROUTINE set_rst_vars(fields) 
     287         CALL iom_set_rstw_var_active('sbc_hc_b') 
     288         CALL iom_set_rstw_var_active('sbc_sc_b') 
     289   END SUBROUTINE iom_set_rstw_core 
     290 
     291   SUBROUTINE iom_set_rst_vars(fields) 
    292292!set names for variables in restart file 
    293293   TYPE(RST_FIELD), INTENT(INOUT) :: fields(max_rst_fields) 
     
    392392 
    393393        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' 
     394        IF(lwp) write(numout,*) 'E R R O R : iom_set_rst_vars SIZE of RST_FIELD array is too small' 
    395395        nstop = nstop + 1 
    396396        ENDIF 
    397397 
    398    END SUBROUTINE set_rst_vars 
    399  
    400  
    401    SUBROUTINE set_rstw_active(rst_file) 
     398   END SUBROUTINE iom_set_rst_vars 
     399 
     400 
     401   SUBROUTINE iom_set_rstw_active(rst_file) 
    402402!sets enabled = .TRUE. for each field in restart file 
    403403   CHARACTER(len=*) :: rst_file 
     
    442442         ENDIF 
    443443        END DO 
    444    END SUBROUTINE set_rstw_active 
    445  
    446    SUBROUTINE set_rst_context( )  
     444   END SUBROUTINE iom_set_rstw_active 
     445 
     446   SUBROUTINE iom_set_rst_context( )  
    447447#if defined key_iomput 
    448448   TYPE(xios_domaingroup)            :: domaingroup_hdl  
     
    467467     CALL xios_add_child(scalargroup_hdl, scalar_hdl, "grid_scalar")  
    468468#endif 
    469    END SUBROUTINE set_rst_context 
     469   END SUBROUTINE iom_set_rst_context 
    470470 
    471471   SUBROUTINE iom_swap( cdname ) 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90

    r8644 r8651  
    111111      ! 
    112112      IF( lwxios ) THEN 
    113          CALL set_rstw_var_active('ssh_ibb') 
     113         CALL iom_set_rstw_var_active('ssh_ibb') 
    114114      ENDIF 
    115115   END SUBROUTINE sbc_apr_init 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

    r8644 r8651  
    397397 
    398398      IF( lwxios ) THEN 
    399           CALL set_rstw_var_active('fwf_isf_b') 
    400           CALL set_rstw_var_active('isf_hc_b') 
    401           CALL set_rstw_var_active('isf_sc_b') 
     399          CALL iom_set_rstw_var_active('fwf_isf_b') 
     400          CALL iom_set_rstw_var_active('isf_hc_b') 
     401          CALL iom_set_rstw_var_active('isf_sc_b') 
    402402      ENDIF 
    403403 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r8644 r8651  
    343343      ! 
    344344      IF( lwxios ) THEN 
    345          CALL set_rstw_var_active('utau_b') 
    346          CALL set_rstw_var_active('vtau_b') 
    347          CALL set_rstw_var_active('qns_b') 
     345         CALL iom_set_rstw_var_active('utau_b') 
     346         CALL iom_set_rstw_var_active('vtau_b') 
     347         CALL iom_set_rstw_var_active('qns_b') 
    348348         ! The 3D heat content due to qsr forcing is treated in traqsr 
    349          ! CALL set_rstw_var_active('qsr_b') 
    350          CALL set_rstw_var_active('emp_b') 
    351          CALL set_rstw_var_active('sfx_b') 
     349         ! CALL iom_set_rstw_var_active('qsr_b') 
     350         CALL iom_set_rstw_var_active('emp_b') 
     351         CALL iom_set_rstw_var_active('sfx_b') 
    352352      ENDIF 
    353353 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r8644 r8651  
    476476      ! 
    477477      IF( lwxios ) THEN 
    478          CALL set_rstw_var_active('rnf_b') 
    479          CALL set_rstw_var_active('rnf_hc_b') 
    480          CALL set_rstw_var_active('rnf_sc_b') 
     478         CALL iom_set_rstw_var_active('rnf_b') 
     479         CALL iom_set_rstw_var_active('rnf_hc_b') 
     480         CALL iom_set_rstw_var_active('rnf_sc_b') 
    481481      ENDIF 
    482482 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90

    r8644 r8651  
    255255      ! 
    256256      IF( lwxios.AND.nn_fsbc > 1 ) THEN 
    257          CALL set_rstw_var_active('nn_fsbc') 
    258          CALL set_rstw_var_active('ssu_m') 
    259          CALL set_rstw_var_active('ssv_m') 
    260          CALL set_rstw_var_active('sst_m') 
    261          CALL set_rstw_var_active('sss_m') 
    262          CALL set_rstw_var_active('ssh_m') 
    263          CALL set_rstw_var_active('e3t_m') 
    264          CALL set_rstw_var_active('frq_m') 
     257         CALL iom_set_rstw_var_active('nn_fsbc') 
     258         CALL iom_set_rstw_var_active('ssu_m') 
     259         CALL iom_set_rstw_var_active('ssv_m') 
     260         CALL iom_set_rstw_var_active('sst_m') 
     261         CALL iom_set_rstw_var_active('sss_m') 
     262         CALL iom_set_rstw_var_active('ssh_m') 
     263         CALL iom_set_rstw_var_active('e3t_m') 
     264         CALL iom_set_rstw_var_active('frq_m') 
    265265      ENDIF 
    266266 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r8644 r8651  
    439439      ! 
    440440      IF( lwxios ) THEN 
    441          CALL set_rstw_var_active('qsr_hc_b') 
    442          CALL set_rstw_var_active('fraqsr_1lev') 
     441         CALL iom_set_rstw_var_active('qsr_hc_b') 
     442         CALL iom_set_rstw_var_active('fraqsr_1lev') 
    443443      ENDIF 
    444444      IF( nn_timing == 1 )   CALL timing_stop('tra_qsr_init') 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r8644 r8651  
    11421142      ! 
    11431143      IF( lwxios ) THEN 
    1144          CALL set_rstw_var_active('en') 
    1145          CALL set_rstw_var_active('avt') 
    1146          CALL set_rstw_var_active('avm') 
    1147          CALL set_rstw_var_active('avmu') 
    1148          CALL set_rstw_var_active('avmv') 
    1149          CALL set_rstw_var_active('mxln') 
     1144         CALL iom_set_rstw_var_active('en') 
     1145         CALL iom_set_rstw_var_active('avt') 
     1146         CALL iom_set_rstw_var_active('avm') 
     1147         CALL iom_set_rstw_var_active('avmu') 
     1148         CALL iom_set_rstw_var_active('avmv') 
     1149         CALL iom_set_rstw_var_active('mxln') 
    11501150      ENDIF 
    11511151 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r8644 r8651  
    816816      ! 
    817817      IF( lwxios ) THEN 
    818         CALL set_rstw_var_active('en') 
    819         CALL set_rstw_var_active('avt') 
    820         CALL set_rstw_var_active('avm') 
    821         CALL set_rstw_var_active('avmu') 
    822         CALL set_rstw_var_active('avmv') 
    823         CALL set_rstw_var_active('dissl') 
     818        CALL iom_set_rstw_var_active('en') 
     819        CALL iom_set_rstw_var_active('avt') 
     820        CALL iom_set_rstw_var_active('avm') 
     821        CALL iom_set_rstw_var_active('avmu') 
     822        CALL iom_set_rstw_var_active('avmv') 
     823        CALL iom_set_rstw_var_active('dissl') 
    824824      ENDIF 
    825825 
Note: See TracChangeset for help on using the changeset viewer.