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 10425 for NEMO/trunk/src/OCE/STO – NEMO

Ignore:
Timestamp:
2018-12-19T22:54:16+01:00 (5 years ago)
Author:
smasson
Message:

trunk: merge back dev_r10164_HPC09_ESIWACE_PREP_MERGE@10424 into the trunk

Location:
NEMO/trunk/src/OCE/STO
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/STO/stopar.F90

    r10069 r10425  
    172172          ! Apply horizontal Laplacian filter to w 
    173173          DO jflt = 1, sto2d_flt(jsto) 
    174             CALL lbc_lnk( sto2d(:,:,jsto), sto2d_typ(jsto), sto2d_sgn(jsto) ) 
     174            CALL lbc_lnk( 'stopar', sto2d(:,:,jsto), sto2d_typ(jsto), sto2d_sgn(jsto) ) 
    175175            CALL sto_par_flt( sto2d(:,:,jsto) ) 
    176176          END DO 
     
    195195 
    196196        ! Lateral boundary conditions on sto2d 
    197         CALL lbc_lnk( sto2d(:,:,jsto), sto2d_typ(jsto), sto2d_sgn(jsto) ) 
     197        CALL lbc_lnk( 'stopar', sto2d(:,:,jsto), sto2d_typ(jsto), sto2d_sgn(jsto) ) 
    198198      END DO 
    199199      ! 
     
    210210             ! Apply horizontal Laplacian filter to w 
    211211             DO jflt = 1, sto3d_flt(jsto) 
    212                CALL lbc_lnk( sto3d(:,:,jk,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) ) 
     212               CALL lbc_lnk( 'stopar', sto3d(:,:,jk,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) ) 
    213213               CALL sto_par_flt( sto3d(:,:,jk,jsto) ) 
    214214             END DO 
     
    233233         END DO 
    234234         ! Lateral boundary conditions on sto3d 
    235          CALL lbc_lnk( sto3d(:,:,:,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) ) 
     235         CALL lbc_lnk( 'stopar', sto3d(:,:,:,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) ) 
    236236      END DO 
    237237      ! 
     
    642642         ! Apply horizontal Laplacian filter to w 
    643643         DO jflt = 1, sto2d_flt(jsto) 
    644             CALL lbc_lnk( sto2d(:,:,jsto), sto2d_typ(jsto), sto2d_sgn(jsto) ) 
     644            CALL lbc_lnk( 'stopar', sto2d(:,:,jsto), sto2d_typ(jsto), sto2d_sgn(jsto) ) 
    645645            CALL sto_par_flt( sto2d(:,:,jsto) ) 
    646646         END DO 
     
    659659            ! Apply horizontal Laplacian filter to w 
    660660            DO jflt = 1, sto3d_flt(jsto) 
    661                CALL lbc_lnk( sto3d(:,:,jk,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) ) 
     661               CALL lbc_lnk( 'stopar', sto3d(:,:,jk,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) ) 
    662662               CALL sto_par_flt( sto3d(:,:,jk,jsto) ) 
    663663            END DO 
     
    701701 
    702702         ! Open the restart file 
    703          CALL iom_open( cn_storst_in, numstor, kiolib = jprstlib ) 
     703         CALL iom_open( cn_storst_in, numstor ) 
    704704 
    705705         ! Get stochastic parameters from restart file: 
     
    806806            ENDIF 
    807807            ! open the restart file 
    808             CALL iom_open( clname, numstow, ldwrt = .TRUE., kiolib = jprstlib ) 
     808            CALL iom_open( clname, numstow, ldwrt = .TRUE. ) 
    809809         ENDIF 
    810810         ENDIF 
  • NEMO/trunk/src/OCE/STO/stopts.F90

    r10069 r10425  
    5454 
    5555      DO jts = 1, jpts 
    56         CALL lbc_lnk( pts(:,:,:,jts), 'T' , 1._wp ) 
     56        CALL lbc_lnk( 'stopts', pts(:,:,:,jts), 'T' , 1._wp ) 
    5757      ENDDO 
    5858 
     
    123123      DO jdof = 1, nn_sto_eos 
    124124         DO jts = 1, jpts 
    125             CALL lbc_lnk( pts_ran(:,:,:,jts,jdof), 'T' , 1._wp ) 
     125            CALL lbc_lnk( 'stopts', pts_ran(:,:,:,jts,jdof), 'T' , 1._wp ) 
    126126         END DO 
    127127      END DO 
Note: See TracChangeset for help on using the changeset viewer.