Changeset 2758


Ignore:
Timestamp:
2011-05-02T16:04:25+02:00 (10 years ago)
Author:
cetlod
Message:

Minor modifications on zdfmxl.F90 in order to be used when running in OFFLINE mode, see ticket #820

Location:
trunk/NEMOGCM/NEMO
Files:
1 deleted
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

    r2715 r2758  
    357357      USE dom_oce,      ONLY: dom_oce_alloc 
    358358      USE zdf_oce,      ONLY: zdf_oce_alloc 
    359       USE zdfmxl,       ONLY: zdf_mxl_alloc 
    360359      USE ldftra_oce,   ONLY: ldftra_oce_alloc 
    361360      USE trc_oce,      ONLY: trc_oce_alloc 
     
    370369      ierr = ierr + ldftra_oce_alloc()          ! ocean lateral  physics : tracers 
    371370      ierr = ierr + zdf_oce_alloc   ()          ! ocean vertical physics 
    372       ierr = ierr + zdf_mxl_alloc   ()          ! ocean vertical physics 
    373371      ! 
    374372      ierr = ierr + lib_mpp_alloc   (numout)    ! mpp exchanges 
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90

    r2715 r2758  
    1616   USE iom             ! I/O library 
    1717   USE lib_mpp         ! MPP library 
     18   USE trc_oce, ONLY : lk_offline ! offline flag 
    1819 
    1920   IMPLICIT NONE 
     
    4041      !!               ***  FUNCTION zdf_mxl_alloc  *** 
    4142      !!---------------------------------------------------------------------- 
    42       ALLOCATE( nmln(jpi,jpj), hmld(jpi,jpj), hmlp(jpi,jpj), hmlpt(jpi,jpj), STAT= zdf_mxl_alloc ) 
    43       ! 
    44       IF( lk_mpp             )   CALL mpp_sum ( zdf_mxl_alloc ) 
    45       IF( zdf_mxl_alloc /= 0 )   CALL ctl_warn('zdf_mxl_alloc: failed to allocate arrays.') 
     43      IF( .NOT. ALLOCATED( nmln ) ) THEN 
     44         ALLOCATE( nmln(jpi,jpj), hmld(jpi,jpj), hmlp(jpi,jpj), hmlpt(jpi,jpj), STAT= zdf_mxl_alloc ) 
     45         ! 
     46         IF( lk_mpp             )   CALL mpp_sum ( zdf_mxl_alloc ) 
     47         IF( zdf_mxl_alloc /= 0 )   CALL ctl_warn('zdf_mxl_alloc: failed to allocate arrays.') 
     48         ! 
     49      ENDIF 
    4650   END FUNCTION zdf_mxl_alloc 
    4751 
     
    108112         END DO 
    109113      END DO 
    110       CALL iom_put( "mldr10_1", hmlp )   ! mixed layer depth 
    111       CALL iom_put( "mldkz5"  , hmld )   ! turbocline depth 
     114      IF( .NOT.lk_offline ) THEN            ! no need to output in offline mode 
     115         CALL iom_put( "mldr10_1", hmlp )   ! mixed layer depth 
     116         CALL iom_put( "mldkz5"  , hmld )   ! turbocline depth 
     117      ENDIF 
    112118       
    113119      IF(ln_ctl)   CALL prt_ctl( tab2d_1=REAL(nmln,wp), clinfo1=' nmln : ', tab2d_2=hmlp, clinfo2=' hmlp : ', ovlap=1 ) 
Note: See TracChangeset for help on using the changeset viewer.