Changeset 12173 for NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcclo.F90

Timestamp:

2019-12-11T11:09:28+01:00 (4 years ago)

Author:

cetlod

Message:

Minor bugfixes

File:

• NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcclo.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcclo.F90

@@ -226 +226 @@
       REAL(wp), DIMENSION(:), INTENT(in   ) :: psurfsrc, psurftrg  ! source and target surface area
       !
-      CHARACTER(256), INTENT(in   ) :: cdcstype  ! closed sea scheme used for redistribution
+      CHARACTER(len=*), INTENT(in   ) :: cdcstype  ! closed sea scheme used for redistribution
       !
       ! local variable
@@ -263 +263 @@
       REAL(wp), DIMENSION(:,:), INTENT(inout) :: pwcs, pqcs                       ! water and heat flux correction due to closed seas
 
-      CHARACTER(256), INTENT(in   ) :: cdcstype  ! closed sea scheme used for redistribution
+      CHARACTER(len=*), INTENT(in   ) :: cdcstype  ! closed sea scheme used for redistribution
 
       ! local variables