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 9103 – NEMO

Changeset 9103


Ignore:
Timestamp:
2017-12-15T18:53:43+01:00 (7 years ago)
Author:
clem
Message:

cosmetics

Location:
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn.F90

    r8882 r9103  
    9999         END DO 
    100100      END DO 
    101       CALL lbc_lnk( zhmax(:,:,:), 'T', 1. ) 
     101      CALL lbc_lnk( zhmax, 'T', 1. ) 
    102102      ! 
    103103      ! 
  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn_adv_umx.F90

    r8885 r9103  
    231231         END DO 
    232232      END DO 
    233       CALL lbc_lnk( ptc(:,:) , 'T',  1. ) 
     233      CALL lbc_lnk( ptc, 'T',  1. ) 
    234234      ! 
    235235   END SUBROUTINE adv_umx 
  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn_rhg_evp.F90

    r8884 r9103  
    810810         END DO 
    811811          
    812          CALL lbc_lnk_multi(   zdiag_sig1   , 'T',  1., zdiag_sig2   , 'T',  1.,   & 
    813             &                  zdiag_dssh_dx, 'U', -1., zdiag_dssh_dy, 'V', -1.,   & 
    814             &                  zdiag_corstrx, 'U', -1., zdiag_corstry, 'V', -1.,   &  
    815             &                  zdiag_intstrx, 'U', -1., zdiag_intstry, 'V', -1.    ) 
     812         CALL lbc_lnk_multi( zdiag_sig1   , 'T',  1., zdiag_sig2   , 'T',  1.,   & 
     813            &                zdiag_dssh_dx, 'U', -1., zdiag_dssh_dy, 'V', -1.,   & 
     814            &                zdiag_corstrx, 'U', -1., zdiag_corstry, 'V', -1.,   &  
     815            &                zdiag_intstrx, 'U', -1., zdiag_intstry, 'V', -1.    ) 
    816816          
    817          CALL lbc_lnk_multi(   zdiag_utau_oi, 'U', -1., zdiag_vtau_oi, 'V', -1.    ) 
    818           
    819          CALL lbc_lnk_multi(   zdiag_xmtrp_ice, 'U', -1., zdiag_xmtrp_snw, 'U', -1.,   & 
    820             &                  zdiag_xatrp    , 'U', -1., zdiag_ymtrp_ice, 'V', -1.,   & 
    821             &                  zdiag_ymtrp_snw, 'V', -1., zdiag_yatrp    , 'V', -1.    ) 
     817         CALL lbc_lnk_multi( zdiag_utau_oi  , 'U', -1., zdiag_vtau_oi  , 'V', -1.,   & 
     818            &                zdiag_xmtrp_ice, 'U', -1., zdiag_xmtrp_snw, 'U', -1.,   & 
     819            &                zdiag_xatrp    , 'U', -1., zdiag_ymtrp_ice, 'V', -1.,   & 
     820            &                zdiag_ymtrp_snw, 'V', -1., zdiag_yatrp    , 'V', -1.    ) 
    822821          
    823822         IF( iom_use('normstr' ) )   CALL iom_put( 'normstr'  ,  zdiag_sig1(:,:)      )   ! Normal stress 
Note: See TracChangeset for help on using the changeset viewer.