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 7924 for branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl_rst.F90 – NEMO

Ignore:
Timestamp:
2017-04-18T15:42:46+02:00 (7 years ago)
Author:
andmirek
Message:

first commit with XIOS restart read functionality

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl_rst.F90

    r6486 r7924  
    161161      IF( ln_trdmxl_instant ) THEN  
    162162         !-- Temperature 
    163          CALL iom_get( inum, jpdom_autoglo, 'tmlbb'           , tmlbb          ) 
    164          CALL iom_get( inum, jpdom_autoglo, 'tmlbn'           , tmlbn          ) 
    165          CALL iom_get( inum, jpdom_autoglo, 'tmlatfb'         , tmlatfb        ) 
    166          ! 
    167          !-- Salinity 
    168          CALL iom_get( inum, jpdom_autoglo, 'smlbb'           , smlbb          ) 
    169          CALL iom_get( inum, jpdom_autoglo, 'smlbn'           , smlbn          ) 
    170          CALL iom_get( inum, jpdom_autoglo, 'smlatfb'         , smlatfb        ) 
     163         CALL iom_get( inum, jpdom_autoglo, 'tmlbb'           , tmlbb ) 
     164         CALL iom_get( inum, jpdom_autoglo, 'tmlbn'           , tmlbn ) 
     165         CALL iom_get( inum, jpdom_autoglo, 'tmlatfb'         , tmlatfb ) 
     166         ! 
     167         !-- Salinity 
     168         CALL iom_get( inum, jpdom_autoglo, 'smlbb'           , smlbb ) 
     169         CALL iom_get( inum, jpdom_autoglo, 'smlbn'           , smlbn ) 
     170         CALL iom_get( inum, jpdom_autoglo, 'smlatfb'         , smlatfb ) 
    171171      ELSE 
    172          CALL iom_get( inum, jpdom_autoglo, 'hmxlbn'          , hmxlbn         ) ! needed for hmxl_sum 
    173          ! 
    174          !-- Temperature 
    175          CALL iom_get( inum, jpdom_autoglo, 'tmlbn'           , tmlbn          ) ! needed for tml_sum 
    176          CALL iom_get( inum, jpdom_autoglo, 'tml_sumb'        , tml_sumb       ) 
     172         CALL iom_get( inum, jpdom_autoglo, 'hmxlbn'          , hmxlbn ) ! needed for hmxl_sum 
     173         ! 
     174         !-- Temperature 
     175         CALL iom_get( inum, jpdom_autoglo, 'tmlbn'           , tmlbn ) ! needed for tml_sum 
     176         CALL iom_get( inum, jpdom_autoglo, 'tml_sumb'        , tml_sumb ) 
    177177         DO jk = 1, jpltrd 
    178178            IF( jk < 10 ) THEN   ;   WRITE(charout,FMT="('tmltrd_csum_ub_', I1)")   jk 
    … …  
    184184         ! 
    185185         !-- Salinity 
    186          CALL iom_get( inum, jpdom_autoglo, 'smlbn'           , smlbn          ) ! needed for sml_sum 
    187          CALL iom_get( inum, jpdom_autoglo, 'sml_sumb'        , sml_sumb       ) 
     186         CALL iom_get( inum, jpdom_autoglo, 'smlbn'           , smlbn ) ! needed for sml_sum 
     187         CALL iom_get( inum, jpdom_autoglo, 'sml_sumb'        , sml_sumb ) 
    188188         DO jk = 1, jpltrd 
    189189            IF( jk < 10 ) THEN   ;   WRITE(charout,FMT="('smltrd_csum_ub_', I1)")   jk 
Note: See TracChangeset for help on using the changeset viewer.