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 12173 for NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DOM – NEMO

Ignore:
Timestamp:
2019-12-11T11:09:28+01:00 (4 years ago)
Author:
cetlod
Message:

Minor bugfixes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DOM/closea.F90

    r12172 r12173  
    206206      INTEGER, DIMENSION(:,:), INTENT(inout) ::   k_top, k_bot   ! ocean first and last level indices 
    207207      INTEGER, DIMENSION(:,:), INTENT(in   ) ::   k_mask         ! mask used to mask ktop and k_bot 
    208       CHARACTER(256),          INTENT(in   ) ::   cd_prt         ! text for control print 
     208      CHARACTER(len=*),          INTENT(in   ) ::   cd_prt         ! text for control print 
    209209      !! 
    210210      !! local variables 
     
    230230      !!---------------------------------------------------------------------- 
    231231      ! subroutine parameter 
    232       CHARACTER(256),          INTENT(in   ) :: cd_file, cd_var     ! netcdf file and variable name 
     232      CHARACTER(len=*)       , INTENT(in   ) :: cd_file, cd_var     ! netcdf file and variable name 
    233233      INTEGER, DIMENSION(:,:), INTENT(  out) :: k_mskout            ! output mask variable 
    234234      ! 
Note: See TracChangeset for help on using the changeset viewer.