Changeset 9831 for branches

Timestamp:

2018-06-22T12:10:26+02:00 (6 years ago)

Author:

jonnywilliams

Message:

trying 3...

File:

• branches/UKMO/dev_r5518_NIWA-ifort-syntax-fix/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_NIWA-ifort-syntax-fix/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

@@ -798 +798 @@
       !! temporary variables
       REAL(wp), INTENT( in ), DIMENSION(3,3) :: tiny_var, tiny_mask
-      CHARACTER(len=*), INTENT( in )            :: var_nm
+      CHARACTER(3), INTENT( in )            :: var_nm
       REAL(wp), INTENT( in )                 :: mini, maxi
       REAL(wp), INTENT( out )                :: varout
       REAL(wp)      :: sumtsn, tsnavg
       INTEGER       :: summask
-      CHARACTER(len=*) :: charout1, charout2
+      CHARACTER(3) :: charout1, charout2
       CHARACTER(60) :: charout3, charout4
       INTEGER       :: ii,ij