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 18 for trunk/NEMO/OPA_SRC/SBC/flx_oce.F90 – NEMO

Ignore:
Timestamp:
2004-02-17T09:36:18+01:00 (20 years ago)
Author:
opalod
Message:

CT : UPDATE001 : First major NEMO update

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/SBC/flx_oce.F90

    r3 r18  
    1313 
    1414   IMPLICIT NONE 
     15   PRIVATE 
     16    
    1517 
    1618   !!---------------------------------------------------------------------- 
    … …  
    2123   !! 'key_flx_forced_daily' 
    2224   !!---------------------------------------------------------------------- 
    23    REAL(wp), DIMENSION(jpi,jpj,3) ::   & 
    24       p_qt ,        &   ! total heat flux ( solar + non solar) 
    25       p_qsr,        &   ! solar heat flux 
    26       p_emp             ! evaporation minus precipitation             
     25   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,3) ::   &  !: 
     26      p_qt ,        &   !: total heat flux ( solar + non solar) 
     27      p_qsr,        &   !: solar heat flux 
     28      p_emp             !: evaporation minus precipitation             
    2729 
    2830#elif defined key_ice_lim || defined key_flx_bulk_monthly || defined key_flx_bulk_daily 
    29    REAL(wp), DIMENSION(jpi,jpj)    ::   & 
    30       qsr_ice  ,      &  ! solar flux over ice 
    31       qsr_oce  ,      &  ! solar flux over ocean 
    32       qnsr_oce ,      &  ! total non solar heat flux (Longwave downward radiation) over ocean  
    33       qnsr_ice ,      &  ! total non solar heat flux (Longwave downward radiation) over ice 
    34       tprecip  ,      &  ! total precipitation ( or liquid precip minus evaporation in coupled mode) 
    35       sprecip  ,      &  ! solid (snow) precipitation 
    36       dqns_ice ,      &  ! total non solar sensibility over ice (LW+SEN+LA) 
    37       tn_ice   ,      &  ! ice surface temperature 
     31   REAL(wp), PUBLIC, DIMENSION(jpi,jpj)    ::   &  !: 
     32      qsr_ice  ,      &  !: solar flux over ice 
     33      qsr_oce  ,      &  !: solar flux over ocean 
     34      qnsr_oce ,      &  !: total non solar heat flux (Longwave downward radiation) over ocean  
     35      qnsr_ice ,      &  !: total non solar heat flux (Longwave downward radiation) over ice 
     36      tprecip  ,      &  !: total precipitation ( or liquid precip minus evaporation in coupled mode) 
     37      sprecip  ,      &  !: solid (snow) precipitation 
     38      dqns_ice ,      &  !: total non solar sensibility over ice (LW+SEN+LA) 
     39      tn_ice   ,      &  !: ice surface temperature 
    3840#if ! defined key_coupled 
    39       fr1_i0   ,      &  ! 1st part of the fraction of sol. rad.  which penetrate inside the ice cover 
    40       fr2_i0   ,      &  ! 2nd part of the fraction of sol. rad.  which penetrate inside the ice cover  
    41       qla_ice  ,      &  ! latent flux over ice   
    42       dqla_ice ,      &  ! latent sensibility over ice 
    43       evap               ! evaporation over ocean 
     41      fr1_i0   ,      &  !: 1st part of the fraction of sol. rad.  which penetrate inside the ice cover 
     42      fr2_i0   ,      &  !: 2nd part of the fraction of sol. rad.  which penetrate inside the ice cover  
     43      qla_ice  ,      &  !: latent flux over ice   
     44      dqla_ice ,      &  !: latent sensibility over ice 
     45      evap               !: evaporation over ocean 
    4446#else 
    45       rrunoff  ,      &  ! runoff 
    46       calving  ,         ! calving 
    47       alb_ice            ! albedo of ice       
     47      rrunoff  ,      &  !: runoff 
     48      calving  ,      &  !: calving 
     49      alb_ice            !: albedo of ice       
    4850#endif 
    4951 
Note: See TracChangeset for help on using the changeset viewer.