Changeset 3462 for branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90

Timestamp:

2012-09-04T11:48:47+02:00 (12 years ago)

Author:

cetlod

Message:

branch:2012/dev_r3438_LOCEAN15_PISLOB, minor changes see ticket #972

File:

• branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90 (modified) (1 diff)

branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90

@@ -62 +62 @@
 
       IF(lwp) WRITE(numout,*)
+      clname = 'namelist_pisces'
 #if defined key_pisces
       IF(lwp) WRITE(numout,*) ' trc_nam_pisces : read PISCES namelist'
-      clname = 'namelist_pisces'
 #else
       IF(lwp) WRITE(numout,*) ' trc_nam_pisces : read LOBSTER namelist'
-      clname = 'namelist_lobster'
 #endif
       IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'