Changeset 5193 for branches/2015/dev_r5171_CNRS_LIM3_seaicebgc/NEMOGCM/NEMO/TOP_SRC/PISCES/trcice_pisces.F90

Timestamp:

2015-04-03T10:48:51+02:00 (9 years ago)

Author:

vancop

Message:

A few cosmetic changes before SETTE

File:

• branches/2015/dev_r5171_CNRS_LIM3_seaicebgc/NEMOGCM/NEMO/TOP_SRC/PISCES/trcice_pisces.F90 (modified) (2 diffs)

branches/2015/dev_r5171_CNRS_LIM3_seaicebgc/NEMOGCM/NEMO/TOP_SRC/PISCES/trcice_pisces.F90

@@ -21 +21 @@
    USE sms_pisces      ! PISCES Source Minus Sink variables
    USE p4zsbc
+   USE in_out_manager
 
    IMPLICIT NONE
@@ -114 +115 @@
       !--------------------------------------------
 
-      REWIND( numnatp )
-      READ( numnatp, nampisice )
+      REWIND( numnatp_ref )
+      READ( numnatp_ref, nampisice, IOSTAT = ios, ERR = 901 )
+901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisice in reference namelist', lwp )
+
+      REWIND( numnatp_cfg )
+      READ( numnatp_cfg, nampisice, IOSTAT = ios, ERR = 902 )
+902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisice in configuration namelist', lwp )
 
       ! Assign namelist stuff