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 13045 for branches/UKMO – NEMO

Changeset 13045 for branches/UKMO


Ignore:
Timestamp:
2020-06-04T15:26:11+02:00 (4 years ago)
Author:
dford
Message:

Merge in latest version of GO6 FOAM package branch.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_FOAMv14_phytobal3d/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90

    r10302 r13045  
    3939   USE in_out_manager     ! I/O manager 
    4040   USE iom                ! I/O module 
     41   USE iom_def, ONLY : jp_r4   ! iom variables definitions    
    4142   USE asmpar             ! Parameters for the assmilation interface 
    4243   USE zdfmxl             ! mixed layer depth 
     
    116117            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    117118            CALL iom_rstput( kt, nitbkg_r, inum, 'rdastp' , zdate             ) 
    118             CALL iom_rstput( kt, nitbkg_r, inum, 'un'     , un                ) 
    119             CALL iom_rstput( kt, nitbkg_r, inum, 'vn'     , vn                ) 
    120             CALL iom_rstput( kt, nitbkg_r, inum, 'tn'     , tsn(:,:,:,jp_tem) ) 
    121             CALL iom_rstput( kt, nitbkg_r, inum, 'sn'     , tsn(:,:,:,jp_sal) ) 
    122             CALL iom_rstput( kt, nitbkg_r, inum, 'sshn'   , sshn              ) 
     119            CALL iom_rstput( kt, nitbkg_r, inum, 'un'     , un               , ktype = jp_r4 ) 
     120            CALL iom_rstput( kt, nitbkg_r, inum, 'vn'     , vn               , ktype = jp_r4 ) 
     121            CALL iom_rstput( kt, nitbkg_r, inum, 'tn'     , tsn(:,:,:,jp_tem), ktype = jp_r4 ) 
     122            CALL iom_rstput( kt, nitbkg_r, inum, 'sn'     , tsn(:,:,:,jp_sal), ktype = jp_r4 ) 
     123            CALL iom_rstput( kt, nitbkg_r, inum, 'sshn'   , sshn             , ktype = jp_r4 ) 
    123124#if defined key_zdftke 
    124             CALL iom_rstput( kt, nitbkg_r, inum, 'en'     , en                ) 
     125            CALL iom_rstput( kt, nitbkg_r, inum, 'en'     , en               , ktype = jp_r4 ) 
    125126#endif 
    126127!            CALL iom_rstput( kt, nitbkg_r, inum, 'gcx'    , gcx               ) 
    127             CALL iom_rstput( kt, nitbkg_r, inum, 'avt'    , avt              ) 
     128            CALL iom_rstput( kt, nitbkg_r, inum, 'avt'    , avt              , ktype = jp_r4 ) 
    128129            IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    129130            ! 
Note: See TracChangeset for help on using the changeset viewer.