Changeset 12173
- Timestamp:
- 2019-12-11T11:09:28+01:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DOM/closea.F90
r12172 r12173 206 206 INTEGER, DIMENSION(:,:), INTENT(inout) :: k_top, k_bot ! ocean first and last level indices 207 207 INTEGER, DIMENSION(:,:), INTENT(in ) :: k_mask ! mask used to mask ktop and k_bot 208 CHARACTER( 256), INTENT(in ) :: cd_prt ! text for control print208 CHARACTER(len=*), INTENT(in ) :: cd_prt ! text for control print 209 209 !! 210 210 !! local variables … … 230 230 !!---------------------------------------------------------------------- 231 231 ! subroutine parameter 232 CHARACTER( 256),INTENT(in ) :: cd_file, cd_var ! netcdf file and variable name232 CHARACTER(len=*) , INTENT(in ) :: cd_file, cd_var ! netcdf file and variable name 233 233 INTEGER, DIMENSION(:,:), INTENT( out) :: k_mskout ! output mask variable 234 234 ! -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcclo.F90
r12172 r12173 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 redistribution228 CHARACTER(len=*), INTENT(in ) :: cdcstype ! closed sea scheme used for redistribution 229 229 ! 230 230 ! local variable … … 263 263 REAL(wp), DIMENSION(:,:), INTENT(inout) :: pwcs, pqcs ! water and heat flux correction due to closed seas 264 264 265 CHARACTER( 256), INTENT(in ) :: cdcstype ! closed sea scheme used for redistribution265 CHARACTER(len=*), INTENT(in ) :: cdcstype ! closed sea scheme used for redistribution 266 266 267 267 ! local variables
Note: See TracChangeset
for help on using the changeset viewer.