- Timestamp:
- 2019-12-05T19:47:50+01:00 (5 years ago)
- File:
-
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/SBC/sbcclo.F90
r12077 r12079 221 221 !!---------------------------------------------------------------------- 222 222 ! subroutine parameters 223 INTEGER, INTENT(in ) :: kncs! closed sea number224 INTEGER, DIMENSION(:) , INTENT(in ) :: kcsgrp! closed sea group number223 INTEGER, INTENT(in ) :: kncs ! closed sea number 224 INTEGER, DIMENSION(:) , INTENT(in ) :: kcsgrp ! closed sea group number 225 225 ! 226 226 REAL(wp), DIMENSION(:), INTENT(in ) :: psurfsrc, psurftrg ! source and target surface area 227 227 ! 228 CHARACTER( 256), INTENT(in ) :: cdcstype! closed sea scheme used for redistribution229 ! 228 CHARACTER(LEN=3) , INTENT(in ) :: cdcstype ! closed sea scheme used for redistribution 229 !!---------------------------------------------------------------------- 230 230 ! local variable 231 231 INTEGER :: jcs … … 256 256 !!---------------------------------------------------------------------- 257 257 ! 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 261 263 262 264 REAL(wp), DIMENSION(:) , INTENT(in ) :: psurfsrc, psurftrg, psurf_opnsea ! source, target and open ocean surface area 263 265 REAL(wp), DIMENSION(:,:), INTENT(inout) :: pwcs, pqcs ! water and heat flux correction due to closed seas 264 266 265 CHARACTER(256), INTENT(in ) :: cdcstype ! closed sea scheme used for redistribution266 267 267 268 ! local variables
Note: See TracChangeset
for help on using the changeset viewer.