Changeset 1271 for trunk/NEMO/TOP_SRC/PISCES/p4zopt.F90

Timestamp:

2009-01-15T09:12:00+01:00 (15 years ago)

Author:

rblod

Message:

Addapt AGRIF routines to the new TOP organization, clean some routines and add a sponge layer for passive tracers, see ticket #293

File:

• trunk/NEMO/TOP_SRC/PISCES/p4zopt.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/PISCES/p4zopt.F90

@@ -280 +280 @@
       INTEGER :: numlight
       REAL(wp) ::   ztoto
+      CHARACTER(LEN=20) :: clname
 
       !  FROM THE NEW BIOOPTIC MODEL PROPOSED JM ANDRE, WE READ HERE
       !  A PRECOMPUTED ARRAY CORRESPONDING TO THE ATTENUATION COEFFICIENT
 
-      CALL ctlopn( numlight, 'kRGB61.txt', 'OLD', 'FORMATTED', 'SEQUENTIAL',   &
+      clname = 'kRGB61.txt' 
+      CALL ctlopn( numlight, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL',   &
          &           1, numout, .TRUE., 1 )