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 4616 for branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90 – NEMO

Ignore:
Timestamp:
2014-04-06T17:28:25+02:00 (10 years ago)
Author:
gm
Message:

#1260 : see the associated wiki page for explanation

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90

    r4147 r4616  
    248248         ! for basin budget and cooerence 
    249249         !-------------------------------------------------- 
    250 !CDIR COLLAPSE 
    251250           emp (:,:) = evap(:,:) - sf(jp_prec)%fnow(:,:,1) * tmask(:,:,1) 
    252 !CDIR COLLAPSE 
    253251 
    254252         CALL iom_put( "qlw_oce",   qbw  )                 ! output downward longwave heat over the ocean 
    … …  
    264262   
    265263  
    266    SUBROUTINE fluxes_mfs(alat,alon,hour,                               & 
    267         sst,tnow,shnow,unow,vnow,mslnow,cldnow,qsw,qbw,ha,elat,        & 
    268         evap,taux,tauy) 
     264   SUBROUTINE fluxes_mfs( alat, alon , hour, sst ,                   & 
     265      &                   tnow, shnow, unow, vnow, mslnow, cldnow,   & 
     266      &                   qsw , qbw  , ha  , elat, evap, taux, tauy ) 
    269267      !!---------------------------------------------------------------------- 
    270268      !!                    ***  ROUTINE fluxes_mfs  *** 
Note: See TracChangeset for help on using the changeset viewer.