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/sbcmod.F90

    r5206 r5222  
    152152      END SELECT 
    153153      ! 
    154       IF( ln_dm2dc .AND. lk_top  )  THEN    
    155          l_trcdm2dc = .TRUE. 
    156          IF( lwp ) THEN 
    157             WRITE(numout,*) "In case of diurnal cycle coupled with passive tracers" 
    158             WRITE(numout,*) "Computation of a daily mean shortwave for some biogeochemical models" 
    159          ENDIF 
    160       ELSE              
    161          l_trcdm2dc = .FALSE. 
    162       ENDIF 
    163  
    164154      !                              ! allocate sbc arrays 
    165155      IF( sbc_oce_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_init : unable to allocate sbc_oce arrays' ) 
     
    276266      ! 
    277267      IF( nsbc   == jp_cpl )   CALL sbc_cpl_init (nn_ice)      ! OASIS initialisation. must be done before first time step 
     268       
     269      l_trcdm2dc == lk_top .AND. ( ln_dm2dc .OR. ( lk_cpl .AND. n_cpl_qsr /= 1 ) )   
     270      IF( l_trcdm2dc .AND. lwp ) THEN 
     271            WRITE(numout,*) "Coupling with passive tracers and used of diurnal cycle !!!!! " 
     272            WRITE(numout,*) "Computation of a daily mean shortwave for some biogeochemical models" 
     273         ENDIF 
     274      ENDIF 
    278275 
    279276   END SUBROUTINE sbc_init 
Note: See TracChangeset for help on using the changeset viewer.