Changeset 155 for trunk/NEMO

Timestamp:

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

Author:

opalod

Message:

CL + CT: BUGFIX100: Add missing "USE cpl_oce" and "USE geo2ocean" modules, syntax correction and remove sciobc initialization with tau[xy] arrays (the wind stress is transmitted to the ice through icestp.F90 module)

File:

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

trunk/NEMO/OPA_SRC/SBC/tau_coupled_ice.h90

@@ -7 +7 @@
    !!               sea-ice model
    !!----------------------------------------------------------------------
-   !! * Modules used
-   USE ioipsl       ! NetCDF library
    !!----------------------------------------------------------------------
    !!   OPA 9.0 , LODYC-IPSL  (2003)
@@ -41 +39 @@
       !!   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
@@ -46 +49 @@
       !! * 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) ::   &
          ztauxxu, ztauyyu, ztauzzu,   &  ! 3 components of the wind stress
@@ -65 +69 @@
 ! 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
 !!---------------------------------------------------------------------
 
@@ -243 +247 @@
           IF( nitend-kt < nexco ) CALL histclo( nidct )
 
-! Pour l'instant pas de différentiation de tension de vent mer libre / glace
-!  9: la tension de vent sur l'ocean suivant i              
-          sciobc (:,:, 9) = taux
-! 10: la tension de vent sur la glace suivant i              
-          sciobc (:,:,10) = taux
-! 11: la tension de vent sur l'ocean suivant j               
-          sciobc (:,:,11) = tauy
-! 12: la tension de vent sur la glace suivant j               
-          sciobc (:,:,12) = tauy
-
       ENDIF
 
-   END SUBROUTINE flx
+   END SUBROUTINE tau