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 12079 for NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/SBC/sbcclo.F90 – NEMO

Ignore:
Timestamp:
2019-12-05T19:47:50+01:00 (4 years ago)
Author:
mathiot
Message:

include ENHANCE-03_closea in UKMO merge branch

File:
1 copied

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/SBC/sbcclo.F90

    r12077 r12079  
    221221      !!---------------------------------------------------------------------- 
    222222      ! subroutine parameters 
    223       INTEGER,               INTENT(in   ) :: kncs                 ! closed sea number                 
    224       INTEGER, DIMENSION(:), INTENT(in   ) :: kcsgrp               ! closed sea group number 
     223      INTEGER,                INTENT(in   ) :: kncs                ! closed sea number                 
     224      INTEGER, DIMENSION(:) , INTENT(in   ) :: kcsgrp              ! closed sea group number 
    225225      ! 
    226226      REAL(wp), DIMENSION(:), INTENT(in   ) :: psurfsrc, psurftrg  ! source and target surface area 
    227227      ! 
    228       CHARACTER(256), INTENT(in   ) :: cdcstype  ! closed sea scheme used for redistribution 
    229       ! 
     228      CHARACTER(LEN=3)      , INTENT(in   ) :: cdcstype            ! closed sea scheme used for redistribution 
     229      !!---------------------------------------------------------------------- 
    230230      ! local variable 
    231231      INTEGER :: jcs 
    … …  
    256256      !!---------------------------------------------------------------------- 
    257257      ! subroutine parameters 
    258       INTEGER,                 INTENT(in) :: kncs                                 ! closed sea id 
    259       INTEGER, DIMENSION(:  ), INTENT(in) :: kcsgrp                               ! closed sea group id 
    260       INTEGER, DIMENSION(:,:), INTENT(in) :: kmsk_src, kmsk_grp, kmsk_opnsea      ! source, target, open ocean mask 
     258      CHARACTER(LEN=3)        , INTENT(in   ) :: cdcstype  ! closed sea scheme used for redistribution 
     259      ! 
     260      INTEGER,                 INTENT(in)     :: kncs                                 ! closed sea id 
     261      INTEGER, DIMENSION(:  ), INTENT(in)     :: kcsgrp                               ! closed sea group id 
     262      INTEGER, DIMENSION(:,:), INTENT(in)     :: kmsk_src, kmsk_grp, kmsk_opnsea      ! source, target, open ocean mask 
    261263       
    262264      REAL(wp), DIMENSION(:)  , INTENT(in   ) :: psurfsrc, psurftrg, psurf_opnsea ! source, target and open ocean surface area 
    263265      REAL(wp), DIMENSION(:,:), INTENT(inout) :: pwcs, pqcs                       ! water and heat flux correction due to closed seas 
    264266 
    265       CHARACTER(256), INTENT(in   ) :: cdcstype  ! closed sea scheme used for redistribution 
    266267 
    267268      ! local variables 
Note: See TracChangeset for help on using the changeset viewer.