Changeset 154 for trunk/NEMO

Timestamp:

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

Author:

opalod

Message:

CL + CT: BUGFIX099: Add missing "USE cpl_oce" and "USE geo2ocean" modules and syntax correction

File:

• trunk/NEMO/OPA_SRC/SBC/tau_coupled.h90 (modified) (5 diffs)

trunk/NEMO/OPA_SRC/SBC/tau_coupled.h90

@@ -7 +7 @@
    !!               case, without sea-ice
    !!----------------------------------------------------------------------
-   !! * Modules used
-   USE ioipsl       ! NetCDF library
    !!----------------------------------------------------------------------
    !!   OPA 9.0 , LODYC-IPSL  (2003)
@@ -39 +37 @@
       !!   8.5  !  02-11  (G. Madec)  F90: Free form and module
       !!----------------------------------------------------------------------
+      !! * Modules used
+      USE ioipsl                ! NetCDF library
+      USE cpl_oce               ! coupled ocean-atmosphere variables
+      USE geo2ocean             ! ???
+
       !! * Arguments
       INTEGER, INTENT( in  ) ::   kt   ! ocean time step
@@ -44 +47 @@
       !! * Local declarations
       INTEGER :: ji,jj,jf
-      INTEGER :: itm1,isize,iflag,icpliter,info,inuread,index
+      INTEGER :: itm1,isize,iflag,info,inuread,index
+!      INTEGER :: icpliter
       REAL(wp), DIMENSION(jpidta,jpjdta) ::   &
          ztaux , ztauxv,    &  ! ???
@@ -53 +57 @@
 ! Addition for SIPC CASE
       CHARACTER (len=3) ::   clmodinf       ! Header or not
-      CHARACTER (len=3) ::   cljobnam_r    ! Experiment name in the field brick, if any 
-      INTEGER ,DIMENSION(3) :: infos       ! infos in the field brick, if any
+!      CHARACTER (len=3) ::   cljobnam_r    ! Experiment name in the field brick, if any 
+!      INTEGER ,DIMENSION(3) :: infos       ! infos in the field brick, if any
       !!---------------------------------------------------------------------
 
@@ -151 +155 @@
       ENDIF
 
-   END SUBROUTINE flx
+   END SUBROUTINE tau