Changeset 956


Ignore:
Timestamp:
2008-05-14T18:46:05+02:00 (13 years ago)
Author:
cetlod
Message:

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

Location:
trunk/NEMO/OFF_SRC
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OFF_SRC/daymod.F90

    r719 r956  
    2626      nday_year ,   &  !: curent day counted from jan 1st of the current year 
    2727      ndastp           !: time step date in year/month/day aammjj 
     28 
    2829   REAL(wp), PUBLIC ::   &  !: 
    2930       adatrj   ,   &  !: number of elapsed days since the begining of the run 
     
    3132       !               !  it is the accumulated duration of previous runs 
    3233       !               !  that may have been run with different time steps. 
     34 
     35   INTEGER, PUBLIC, DIMENSION(12) ::   nbiss = (/ 31, 29, 31, 30, 31, 30,    &  !: number of days per month 
     36      &                                           31, 31, 30, 31, 30, 31 /)     !: (leap-year) 
     37   INTEGER, PUBLIC, DIMENSION(12) ::   nobis = (/ 31, 28, 31, 30, 31, 30,    &  !: number of days per month 
     38      &                                           31, 31, 30, 31, 30, 31 /)     !: (365 days a year) 
     39 
    3340   !!---------------------------------------------------------------------- 
    3441   !!  OPA 9.0 , LOCEAN-IPSL (2005)  
  • trunk/NEMO/OFF_SRC/dtadyn.F90

    r723 r956  
    1515   USE in_out_manager  ! I/O manager 
    1616   USE phycst          ! physical constants 
    17    USE ocesbc 
     17   USE sbc_oce 
    1818   USE ldfslp 
    19    USE blk_oce 
    2019   USE ldfeiv          ! eddy induced velocity coef.      (ldf_eiv routine) 
    2120   USE ldftra_oce      ! ocean tracer   lateral physics 
     
    563562       ! keep needed fluxes 
    564563       ! 
    565 #if defined key_flx_bulk_monthly || defined key_flx_bulk_daily 
    566                     vatm(:,:) = flx(:,:,jpwind) 
    567 #endif 
     564!!                    wndm(:,:) = flx(:,:,jpwind) 
    568565                    freeze(:,:) = flx(:,:,jpice) 
    569566                    emp(:,:) = flx(:,:,jpemp) 
     
    630627       ! keep needed fluxes 
    631628       ! 
    632 #if defined key_flx_bulk_monthly || defined key_flx_bulk_daily 
    633                   vatm(:,:) = flx(:,:,jpwind) 
    634 #endif 
     629!!                  wndm(:,:) = flx(:,:,jpwind) 
    635630                  freeze(:,:) = flx(:,:,jpice) 
    636631                  emp(:,:)    = flx(:,:,jpemp) 
     
    764759      CALL iom_get ( numfl_t, jpdom_data, 'soshfldo', zqsr (:,:  ), jkenr ) 
    765760      CALL iom_get ( numfl_t, jpdom_data, 'soicecov', zice (:,:  ), jkenr ) 
    766       CALL iom_get ( numfl_t, jpdom_data, 'sowindsp', zwspd(:,:  ), jkenr ) 
     761!!      CALL iom_get ( numfl_t, jpdom_data, 'sowindsp', zwspd(:,:  ), jkenr ) 
    767762 
    768763      ! file grid-U 
     
    896891      ! flux : 
    897892      ! 
    898       flxdta(:,:,jpwind,2) = zwspd(:,:) * tmask(:,:,1) 
     893!!      flxdta(:,:,jpwind,2) = zwspd(:,:) * tmask(:,:,1) 
    899894      flxdta(:,:,jpice,2)  = MIN( 1., zice(:,:) ) * tmask(:,:,1) 
    900895      flxdta(:,:,jpemp,2)  = zemp(:,:) * tmask(:,:,1) 
  • trunk/NEMO/OFF_SRC/opa.F90

    r719 r956  
    166166      CALL dta_dyn(nit000)      
    167167 
    168 #if defined key_passivetrc 
     168#if defined key_top 
    169169      CALL ini_trc                           ! Passive tracers 
    170170#endif 
  • trunk/NEMO/OFF_SRC/phycst.F90

    r719 r956  
    1515 
    1616   !! * Shared module variables 
    17    INTEGER, PUBLIC, DIMENSION(12) ::   &  !: 
    18       nbiss = (/ 31, 29, 31, 30, 31, 30,      &  !: number of days per month 
    19          &       31, 31, 30, 31, 30, 31 /) ,  &  !  (leap-year) 
    20       nobis = (/ 31, 28, 31, 30, 31, 30,      &  !: number of days per month 
    21          &       31, 31, 30, 31, 30, 31 /)       !  (365 days a year) 
    22     
    2317   REAL(wp), PUBLIC ::                        &  !: 
    2418      rpi = 3.141592653589793_wp           ,  &  !: pi 
  • trunk/NEMO/OFF_SRC/step.F90

    r719 r956  
    8181      CALL dta_dyn( kstp )          ! Interpolation of the dynamical fields 
    8282 
    83 #if defined key_passivetrc 
     83#if defined key_top 
    8484      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    8585      ! Passive Tracer Model 
Note: See TracChangeset for help on using the changeset viewer.