- Timestamp:
- 2019-12-11T11:09:28+01:00 (4 years ago)
- File:
-
- 1 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 !
Note: See TracChangeset
for help on using the changeset viewer.