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 5226 for branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/LIM_SRC_2/limsbc_2.F90 – NEMO

Ignore:
Timestamp:
2015-04-20T15:27:29+02:00 (9 years ago)
Author:
cetlod
Message:

NEMOGCM_dev_r5204_CNRS_PISCES_dcy : minor bugs correction

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/LIM_SRC_2/limsbc_2.F90

    r5225 r5226  
    124124      END SELECT                                 !     
    125125 
     126      ! make calls for heat fluxes before it is modified 
     127      IF( iom_use('qsr_oce') )   CALL iom_put( "qsr_oce" , qsr(:,:) * pfrld(:,:) )   !     solar flux at ocean surface 
     128      IF( iom_use('qsr_ice') )   CALL iom_put( "qsr_ice" , qsr_ice(:,:,1) * pfrld(:,:) ) !     solar flux at ice surface 
     129      IF( l_trcdm2dc ) THEN 
     130        IF( iom_use('qsr_oce_mean') )   CALL iom_put( "qsr_oce_mean" , qsr_mean(:,:) * pfrld(:,:) )   !   daily mean solar flux at ocean surface 
     131        IF( iom_use('qsr_ice_mean') )   CALL iom_put( "qsr_ice_mean" , qsr_ice_mean(:,:,1) * pfrld(:,:) ) !  daily mean solar flux at ice surface 
     132      ENDIF 
    126133      !------------------------------------------! 
    127134      !      heat flux at the ocean surface      ! 
Note: See TracChangeset for help on using the changeset viewer.