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 – NEMO

Changeset 5226


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

NEMOGCM_dev_r5204_CNRS_PISCES_dcy : minor bugs correction

Location:
branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO
Files:
4 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      ! 
  • branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r5225 r5226  
    261261      IF( ln_ssr           )   CALL sbc_ssr_init               ! Sea-Surface Restoring initialisation 
    262262      ! 
     263      IF( ln_rnf           )   CALL sbc_rnf_init               ! Runof initialisation 
     264      ! 
    263265      IF( nn_ice == 3      )   CALL sbc_lim_init               ! LIM3 initialisation 
    264266 
     
    417419         CALL iom_put( "qns"   , qns        )                   ! solar heat flux 
    418420         CALL iom_put( "qsr"   ,       qsr  )                   ! solar heat flux 
     421         IF( l_trcdm2dc ) CALL iom_put( "qsr_mean" ,       qsr_mean  )                   ! daily mean solar heat flux 
    419422         IF( nn_ice > 0 )   CALL iom_put( "ice_cover", fr_i )   ! ice fraction  
    420423         CALL iom_put( "taum"  , taum       )                   ! wind stress module  
  • branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r4990 r5226  
    104104      ! 
    105105      CALL wrk_alloc( jpi,jpj, ztfrz) 
    106  
    107       ! 
    108       IF( kt == nit000 )   CALL sbc_rnf_init                           ! Read namelist and allocate structures 
    109106 
    110107      !                                            ! ---------------------------------------- ! 
  • branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90

    r5206 r5226  
    366366         rivalkinput = 0._wp 
    367367      END IF  
    368  
    369368      ! nutrient input from dust 
    370369      ! ------------------------ 
Note: See TracChangeset for help on using the changeset viewer.