New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 977 – NEMO

Changeset 977


Ignore:
Timestamp:
2008-05-15T16:24:02+02:00 (16 years ago)
Author:
cetlod
Message:

phasing traqsr.F90 module to the new version of NEMO, see ticket 146

File:
1 edited

Legend:

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

    r956 r977  
    3434 
    3535   !! * Module variables 
    36    INTEGER , PUBLIC, PARAMETER :: jpflx = 13 
     36   INTEGER , PUBLIC, PARAMETER :: jpflx = 7 
    3737   INTEGER , PUBLIC, PARAMETER :: & 
    3838      jptaux = 1 , & ! indice in flux for taux 
    3939      jptauy = 2 , & ! indice in flux for tauy 
    40       jpwind = 3 , & ! indice in flux for wspd 
    41       jpemp = 4  , & ! indice in flux for E-P 
    42       jpice = 5  , & ! indice in flux for ice concentration 
    43       jpqsr = 6      ! indice in flux for shortwave heat flux  
     40      jpemp = 3  , & ! indice in flux for E-P 
     41      jpice = 4  , & ! indice in flux for ice concentration 
     42      jpqsr = 5      ! indice in flux for shortwave heat flux  
    4443 
    4544   LOGICAL , PUBLIC :: & 
     
    562561       ! keep needed fluxes 
    563562       ! 
    564 !!                    wndm(:,:) = flx(:,:,jpwind) 
    565563                    freeze(:,:) = flx(:,:,jpice) 
    566564                    emp(:,:) = flx(:,:,jpemp) 
     
    627625       ! keep needed fluxes 
    628626       ! 
    629 !!                  wndm(:,:) = flx(:,:,jpwind) 
    630627                  freeze(:,:) = flx(:,:,jpice) 
    631628                  emp(:,:)    = flx(:,:,jpemp) 
     
    683680 
    684681      REAL(wp), DIMENSION(jpi,jpj) :: & 
    685          zemp, zqsr, zmld, zice, zwspd  
     682         zemp, zqsr, zmld, zice  
    686683#if defined key_trcbbl_dif   ||   defined key_trcbbl_adv 
    687684      REAL(wp), DIMENSION(jpi,jpj) :: & 
     
    759756      CALL iom_get ( numfl_t, jpdom_data, 'soshfldo', zqsr (:,:  ), jkenr ) 
    760757      CALL iom_get ( numfl_t, jpdom_data, 'soicecov', zice (:,:  ), jkenr ) 
    761 !!      CALL iom_get ( numfl_t, jpdom_data, 'sowindsp', zwspd(:,:  ), jkenr ) 
    762758 
    763759      ! file grid-U 
     
    891887      ! flux : 
    892888      ! 
    893 !!      flxdta(:,:,jpwind,2) = zwspd(:,:) * tmask(:,:,1) 
    894889      flxdta(:,:,jpice,2)  = MIN( 1., zice(:,:) ) * tmask(:,:,1) 
    895890      flxdta(:,:,jpemp,2)  = zemp(:,:) * tmask(:,:,1) 
Note: See TracChangeset for help on using the changeset viewer.