Ignore:
Timestamp:
2020-06-19T17:37:47+02:00 (10 months ago)
Author:
orioltp
Message:

dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation: merge with trunk@13134, see #2364

Location:
NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation

    • Property svn:externals
      •  

        old new  
        88 
        99# SETTE 
        10 ^/utils/CI/sette@HEAD         sette 
         10^/utils/CI/sette@12931        sette 
  • NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/OCE/IOM/iom.F90

    r12603 r13135  
    118118      CHARACTER(len=lc) :: clname 
    119119      INTEGER             :: irefyear, irefmonth, irefday 
    120       INTEGER           :: ji, jkmin 
     120      INTEGER           :: ji 
    121121      LOGICAL :: llrst_context              ! is context related to restart 
    122122      ! 
     
    227227           
    228228          ! Add vertical grid bounds 
    229           jkmin = MIN(2,jpk)  ! in case jpk=1 (i.e. sas2D) 
    230           zt_bnds(2,:        ) = gdept_1d(:) 
    231           zt_bnds(1,jkmin:jpk) = gdept_1d(1:jpkm1) 
    232           zt_bnds(1,1        ) = gdept_1d(1) - e3w_1d(1) 
    233           zw_bnds(1,:        ) = gdepw_1d(:) 
    234           zw_bnds(2,1:jpkm1  ) = gdepw_1d(jkmin:jpk) 
    235           zw_bnds(2,jpk:     ) = gdepw_1d(jpk) + e3t_1d(jpk) 
     229          zt_bnds(2,:      ) = gdept_1d(:) 
     230          zt_bnds(1,2:jpk  ) = gdept_1d(1:jpkm1) 
     231          zt_bnds(1,1      ) = gdept_1d(1) - e3w_1d(1) 
     232          zw_bnds(1,:      ) = gdepw_1d(:) 
     233          zw_bnds(2,1:jpkm1) = gdepw_1d(2:jpk) 
     234          zw_bnds(2,jpk:   ) = gdepw_1d(jpk) + e3t_1d(jpk) 
    236235          CALL iom_set_axis_attr(  "deptht", bounds=zw_bnds ) 
    237236          CALL iom_set_axis_attr(  "depthu", bounds=zw_bnds ) 
     
    672671 
    673672 
    674    SUBROUTINE iom_open( cdname, kiomid, ldwrt, kdom, ldstop, ldiof, kdlev ) 
     673   SUBROUTINE iom_open( cdname, kiomid, ldwrt, kdom, ldstop, ldiof, kdlev, cdcomp ) 
    675674      !!--------------------------------------------------------------------- 
    676675      !!                   ***  SUBROUTINE  iom_open  *** 
     
    685684      LOGICAL         , INTENT(in   ), OPTIONAL ::   ldiof    ! Interp On the Fly, needed for AGRIF (default = .FALSE.) 
    686685      INTEGER         , INTENT(in   ), OPTIONAL ::   kdlev    ! number of vertical levels 
     686      CHARACTER(len=3), INTENT(in   ), OPTIONAL ::   cdcomp   ! name of component calling iom_nf90_open 
    687687      ! 
    688688      CHARACTER(LEN=256)    ::   clname    ! the name of the file based on cdname [[+clcpu]+clcpu] 
     
    830830      ENDIF 
    831831      IF( istop == nstop ) THEN   ! no error within this routine 
    832          CALL iom_nf90_open( clname, kiomid, llwrt, llok, idompar, kdlev = kdlev ) 
     832         CALL iom_nf90_open( clname, kiomid, llwrt, llok, idompar, kdlev = kdlev, cdcomp = cdcomp ) 
    833833      ENDIF 
    834834      ! 
Note: See TracChangeset for help on using the changeset viewer.