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 13463 for NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/OCE/ASM/asmbkg.F90 – NEMO

Ignore:
Timestamp:
2020-09-14T17:40:34+02:00 (4 years ago)
Author:
andmirek
Message:

Ticket #2195:update to trunk 13461

Location:
NEMO/branches/2019/dev_r11351_fldread_with_XIOS
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r11351_fldread_with_XIOS

    • Property svn:externals

      •  

        old new  
        33^/utils/build/mk@HEAD         mk 
        44^/utils/tools@HEAD            tools 
        5 ^/vendors/AGRIF/dev@HEAD      ext/AGRIF 
         5^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS      ext/AGRIF 
        66^/vendors/FCM@HEAD            ext/FCM 
        77^/vendors/IOIPSL@HEAD         ext/IOIPSL 
         8 
         9# SETTE 
         10^/utils/CI/sette@13382        sette 

  • NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/OCE/ASM/asmbkg.F90

    r10425 r13463  
    5252CONTAINS 
    5353 
    54    SUBROUTINE asm_bkg_wri( kt ) 
     54   SUBROUTINE asm_bkg_wri( kt, Kmm ) 
    5555      !!----------------------------------------------------------------------- 
    5656      !!                  ***  ROUTINE asm_bkg_wri *** 
    … …  
    6565      !!----------------------------------------------------------------------- 
    6666      INTEGER, INTENT( IN ) :: kt               ! Current time-step 
     67      INTEGER, INTENT( IN ) :: Kmm              ! time level index 
    6768      ! 
    6869      CHARACTER (LEN=50) :: cl_asmbkg 
    … …  
    9899            ! 
    99100            !                                      ! Write the information 
    100             CALL iom_rstput( kt, nitbkg_r, inum, 'rdastp' , zdate             ) 
    101             CALL iom_rstput( kt, nitbkg_r, inum, 'un'     , un                ) 
    102             CALL iom_rstput( kt, nitbkg_r, inum, 'vn'     , vn                ) 
    103             CALL iom_rstput( kt, nitbkg_r, inum, 'tn'     , tsn(:,:,:,jp_tem) ) 
    104             CALL iom_rstput( kt, nitbkg_r, inum, 'sn'     , tsn(:,:,:,jp_sal) ) 
    105             CALL iom_rstput( kt, nitbkg_r, inum, 'sshn'   , sshn              ) 
    106             IF( ln_zdftke )   CALL iom_rstput( kt, nitbkg_r, inum, 'en'     , en                ) 
     101            CALL iom_rstput( kt, nitbkg_r, inum, 'rdastp' , zdate                ) 
     102            CALL iom_rstput( kt, nitbkg_r, inum, 'un'     , uu(:,:,:,Kmm)        ) 
     103            CALL iom_rstput( kt, nitbkg_r, inum, 'vn'     , vv(:,:,:,Kmm)        ) 
     104            CALL iom_rstput( kt, nitbkg_r, inum, 'tn'     , ts(:,:,:,jp_tem,Kmm) ) 
     105            CALL iom_rstput( kt, nitbkg_r, inum, 'sn'     , ts(:,:,:,jp_sal,Kmm) ) 
     106            CALL iom_rstput( kt, nitbkg_r, inum, 'sshn'   , ssh(:,:,Kmm)         ) 
     107            IF( ln_zdftke )   CALL iom_rstput( kt, nitbkg_r, inum, 'en'     , en ) 
    107108            ! 
    108109            CALL iom_close( inum ) 
    … …  
    133134            ! 
    134135            !                                      ! Write the information 
    135             CALL iom_rstput( kt, nitdin_r, inum, 'rdastp' , zdate             ) 
    136             CALL iom_rstput( kt, nitdin_r, inum, 'un'     , un                ) 
    137             CALL iom_rstput( kt, nitdin_r, inum, 'vn'     , vn                ) 
    138             CALL iom_rstput( kt, nitdin_r, inum, 'tn'     , tsn(:,:,:,jp_tem) ) 
    139             CALL iom_rstput( kt, nitdin_r, inum, 'sn'     , tsn(:,:,:,jp_sal) ) 
    140             CALL iom_rstput( kt, nitdin_r, inum, 'sshn'   , sshn              ) 
     136            CALL iom_rstput( kt, nitdin_r, inum, 'rdastp' , zdate                ) 
     137            CALL iom_rstput( kt, nitdin_r, inum, 'un'     , uu(:,:,:,Kmm)        ) 
     138            CALL iom_rstput( kt, nitdin_r, inum, 'vn'     , vv(:,:,:,Kmm)        ) 
     139            CALL iom_rstput( kt, nitdin_r, inum, 'tn'     , ts(:,:,:,jp_tem,Kmm) ) 
     140            CALL iom_rstput( kt, nitdin_r, inum, 'sn'     , ts(:,:,:,jp_sal,Kmm) ) 
     141            CALL iom_rstput( kt, nitdin_r, inum, 'sshn'   , ssh(:,:,Kmm)         ) 
    141142#if defined key_si3 
    142143            IF( nn_ice == 2 ) THEN 
Note: See TracChangeset for help on using the changeset viewer.