Ignore:
Timestamp:
2015-04-17T12:24:12+02:00 (6 years ago)
Author:
cetlod
Message:

dev_r5204_CNRS_PISCES_dcy: some improvments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90

    r5206 r5222  
    8181   !!              Ocean Surface Boundary Condition fields 
    8282   !!---------------------------------------------------------------------- 
    83    LOGICAL , PUBLIC ::   l_trcdm2dc               !: In case of Diurnal Cycle short wave, compute a Daily Mean short waves flux 
     83   LOGICAL , PUBLIC ::  l_trcdm2dc               !: In case of Diurnal Cycle short wave, compute a Daily Mean short waves flux 
     84   INTEGER , PUBLIC ::  n_cpl_qsr                !: qsr coupling frequency per days 
    8485   ! 
    8586   LOGICAL , PUBLIC ::   lhftau = .FALSE.        !: HF tau used in TKE: mean(stress module) - module(mean stress) 
     
    137138      !!                  ***  FUNCTION sbc_oce_alloc  *** 
    138139      !!--------------------------------------------------------------------- 
    139       INTEGER :: ierr(6) 
     140      INTEGER :: ierr(5) 
    140141      !!--------------------------------------------------------------------- 
    141142      ierr(:) = 0 
     
    145146         ! 
    146147      ALLOCATE( qns_tot(jpi,jpj) , qns  (jpi,jpj) , qns_b(jpi,jpj),        & 
    147          &      qsr_tot(jpi,jpj) , qsr  (jpi,jpj) ,                        & 
     148         &      qsr_tot(jpi,jpj) , qsr  (jpi,jpj) , qsr_mean(jpi,jpj),     & 
    148149         &      emp    (jpi,jpj) , emp_b(jpi,jpj) ,                        & 
    149150         &      sfx    (jpi,jpj) , sfx_b(jpi,jpj) , emp_tot(jpi,jpj), fmmflx(jpi,jpj), STAT=ierr(2) ) 
     
    159160         &      ssv_m  (jpi,jpj) , sss_m  (jpi,jpj), ssh_m(jpi,jpj) , STAT=ierr(4) ) 
    160161         ! 
    161          IF( l_trcdm2dc )   ALLOCATE( qsr_mean(jpi,jpj) , STAT=ierr(5) ) 
    162          ! 
    163162#if defined key_vvl 
    164       ALLOCATE( e3t_m(jpi,jpj) , STAT=ierr(6) ) 
     163      ALLOCATE( e3t_m(jpi,jpj) , STAT=ierr(5) ) 
    165164#endif 
    166165         ! 
Note: See TracChangeset for help on using the changeset viewer.