Changeset 142 for trunk/NEMO/OPA_SRC/cpl.F90

Timestamp:

2004-10-19T15:27:27+02:00 (20 years ago)

Author:

opalod

Message:

CL + CT: BUGFIX087: Add missing "USE daymod" and "USE phycst" modules

File:

• trunk/NEMO/OPA_SRC/cpl.F90 (modified) (7 diffs)

trunk/NEMO/OPA_SRC/cpl.F90

@@ -19 +19 @@
    USE flx_oce         ! in case of ice 
    USE ocfzpt          ! ocean freezing point
+   USE daymod          ! calendar
 
    IMPLICIT NONE
@@ -70 +71 @@
 
       CHARACTER (len=9) ::   clpoolnam 
-      INTEGER           :: ipoolhandle, ipoolsize, index, jf
+      INTEGER           :: ipoolhandle, ipoolsize, jf
       CHARACTER (len=3) ::   cljobnam      ! experiment name
       INTEGER           :: ierror
-      INTEGER,DIMENSION(4) ::  imess, imesso
-      INTEGER           :: getpid, mknod     ! system functions
+!      INTEGER,DIMENSION(4) ::  imess
+      INTEGER,DIMENSION(4) ::  imesso
       !!----------------------------------------------------------------------
      
@@ -136 +137 @@
             IF(lwp) WRITE(numout,*)
             IF(lwp) WRITE(numout,*) 'cpl_init: end of job due to error in pipes definitions'
-            CALL abort
+            CALL abort('')
          END IF
          
@@ -151 +152 @@
             IF(lwp) WRITE(numout,*)
             IF(lwp) WRITE(numout,*) 'cpl_init: end of job due to error in exchange first informations with Oasis'
-            CALL abort
+            CALL abort('')
          END IF
          
@@ -369 +370 @@
       !! * Local declarations
       INTEGER :: jf
-
-      CHARACTER (len=21) ::   clold, clfor, clseq
-      CHARACTER (len=32) ::   clname
 
       NAMELIST/namcpl/ nexco, cchan, nmodcpl, cplmodnam, cploasis   &
@@ -510 +508 @@
       !! * modules used
       USE ioipsl
+      USE phycst          ! physical constants
 
       !! * Arguments
@@ -534 +533 @@
       
       INTEGER  :: index
-      INTEGER, DIMENSION(3) :: infos
+!      INTEGER, DIMENSION(3) :: infos
       CHARACTER (len=3) ::  clmodinf       ! Header or not
-      CHARACTER (len=3) ::  cljobnam      ! experiment name
+!      CHARACTER (len=3) ::  cljobnam      ! experiment name
       !!----------------------------------------------------------------------