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 – NEMO

Changeset 12173


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

Minor bugfixes

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  
    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      ! 
  • NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcclo.F90

    r12172 r12173  
    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 
     228      CHARACTER(len=*), INTENT(in   ) :: cdcstype  ! closed sea scheme used for redistribution 
    229229      ! 
    230230      ! local variable 
     
    263263      REAL(wp), DIMENSION(:,:), INTENT(inout) :: pwcs, pqcs                       ! water and heat flux correction due to closed seas 
    264264 
    265       CHARACTER(256), INTENT(in   ) :: cdcstype  ! closed sea scheme used for redistribution 
     265      CHARACTER(len=*), INTENT(in   ) :: cdcstype  ! closed sea scheme used for redistribution 
    266266 
    267267      ! local variables 
Note: See TracChangeset for help on using the changeset viewer.