Changeset 956 for trunk/NEMO/OFF_SRC/dtadyn.F90

Timestamp:

2008-05-14T18:46:05+02:00 (16 years ago)

Author:

cetlod

Message:

phasing the OFFLINE module to the new version of NEMO, see ticket 146

File:

• trunk/NEMO/OFF_SRC/dtadyn.F90 (modified) (5 diffs)

trunk/NEMO/OFF_SRC/dtadyn.F90

@@ -15 +15 @@
    USE in_out_manager  ! I/O manager
    USE phycst          ! physical constants
-   USE ocesbc
+   USE sbc_oce
    USE ldfslp
-   USE blk_oce
    USE ldfeiv          ! eddy induced velocity coef.      (ldf_eiv routine)
    USE ldftra_oce      ! ocean tracer   lateral physics
@@ -563 +562 @@
        ! keep needed fluxes
        !
-#if defined key_flx_bulk_monthly || defined key_flx_bulk_daily
-                    vatm(:,:) = flx(:,:,jpwind)
-#endif
+!!                    wndm(:,:) = flx(:,:,jpwind)
                     freeze(:,:) = flx(:,:,jpice)
                     emp(:,:) = flx(:,:,jpemp)
@@ -630 +627 @@
        ! keep needed fluxes
        !
-#if defined key_flx_bulk_monthly || defined key_flx_bulk_daily
-                  vatm(:,:) = flx(:,:,jpwind)
-#endif
+!!                  wndm(:,:) = flx(:,:,jpwind)
                   freeze(:,:) = flx(:,:,jpice)
                   emp(:,:)    = flx(:,:,jpemp)
@@ -764 +759 @@
       CALL iom_get ( numfl_t, jpdom_data, 'soshfldo', zqsr (:,:  ), jkenr )
       CALL iom_get ( numfl_t, jpdom_data, 'soicecov', zice (:,:  ), jkenr )
-      CALL iom_get ( numfl_t, jpdom_data, 'sowindsp', zwspd(:,:  ), jkenr )
+!!      CALL iom_get ( numfl_t, jpdom_data, 'sowindsp', zwspd(:,:  ), jkenr )
 
       ! file grid-U
@@ -896 +891 @@
       ! flux :
       !
-      flxdta(:,:,jpwind,2) = zwspd(:,:) * tmask(:,:,1)
+!!      flxdta(:,:,jpwind,2) = zwspd(:,:) * tmask(:,:,1)
       flxdta(:,:,jpice,2)  = MIN( 1., zice(:,:) ) * tmask(:,:,1)
       flxdta(:,:,jpemp,2)  = zemp(:,:) * tmask(:,:,1)