Changeset 2787


Ignore:
Timestamp:
2011-06-27T11:54:00+02:00 (9 years ago)
Author:
cetlod
Message:

Bug correction in NEMO/OFFLINE, see ticket #841

Location:
trunk/NEMOGCM
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/cpp_ORCA2_OFF_PISCES.fcm

    r2670 r2787  
    1 bld::tool::fppkeys key_trabbl key_vectopt_loop key_orca_r2 key_dynspg_flt key_ldfslp key_traldf_c2d key_traldf_eiv key_zdftke key_top key_offline key_pisces key_dtatrc key_diatrc key_iomput  
     1bld::tool::fppkeys key_trabbl key_vectopt_loop key_orca_r2 key_ldfslp key_traldf_c2d key_traldf_eiv key_top key_offline key_pisces key_dtatrc key_diatrc key_iomput  
  • trunk/NEMOGCM/NEMO/OFF_SRC/domrea.F90

    r2715 r2787  
    254254            CALL iom_get( inum4, jpdom_unknown, 'e3t_0'  , e3t_0   ) 
    255255            CALL iom_get( inum4, jpdom_unknown, 'e3w_0'  , e3w_0   ) 
     256            DO jk = 1, jpk 
     257               e3t  (:,:,jk) = e3t_0(jk)                                     ! set to the ref. factors 
     258               e3u  (:,:,jk) = e3t_0(jk) 
     259               e3v  (:,:,jk) = e3t_0(jk) 
     260               e3w  (:,:,jk) = e3w_0(jk) 
     261               gdept(:,:,jk) = gdept_0(jk) 
     262               gdepw(:,:,jk) = gdepw_0(jk) 
     263            END DO 
    256264         ENDIF 
    257265 
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90

    r2758 r2787  
    4141      !!               ***  FUNCTION zdf_mxl_alloc  *** 
    4242      !!---------------------------------------------------------------------- 
     43      zdf_mxl_alloc = 0      ! set to zero if no array to be allocated 
    4344      IF( .NOT. ALLOCATED( nmln ) ) THEN 
    4445         ALLOCATE( nmln(jpi,jpj), hmld(jpi,jpj), hmlp(jpi,jpj), hmlpt(jpi,jpj), STAT= zdf_mxl_alloc ) 
  • trunk/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90

    r2715 r2787  
    1515   USE oce_trc 
    1616   USE trc 
     17   USE trcsms_my_trc 
    1718 
    1819   IMPLICIT NONE 
     
    3839 
    3940      !                       ! Allocate MY_TRC arrays 
    40       IF( sms_lobster_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'trc_ini_my_trc: unable to allocate MY_TRC arrays' ) 
    41  
    42       CALL trc_ctl_my_trc     ! Control consitency 
     41      IF( trc_sms_my_trc_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'trc_ini_my_trc: unable to allocate MY_TRC arrays' ) 
    4342 
    4443      IF(lwp) WRITE(numout,*) 
     
    4948      ! 
    5049   END SUBROUTINE trc_ini_my_trc 
    51  
    52  
    53    SUBROUTINE trc_ctl_my_trc 
    54       !!---------------------------------------------------------------------- 
    55       !!                     ***  ROUTINE trc_ctl_pisces  *** 
    56       !! 
    57       !! ** Purpose :   control the cpp options, namelist and files  
    58       !!---------------------------------------------------------------------- 
    59       INTEGER :: jl, jn 
    60       !!---------------------------------------------------------------------- 
    61       ! 
    62       IF(lwp) WRITE(numout,*) 
    63       IF(lwp) WRITE(numout,*) ' use COLOR tracer ' 
    64       ! 
    65       DO jl = 1, jp_my_trc 
    66          jn = jp_myt0 + jl - 1 
    67          WRITE( ctrcnm(jn),'(a,i2.2)' ) 'CLR', jn 
    68          ctrcnl(jn)='Color concentration' 
    69          ctrcun(jn)='N/A' 
    70       END DO 
    71       ! 
    72    END SUBROUTINE trc_ctl_my_trc 
    7350 
    7451#else 
  • trunk/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90

    r2715 r2787  
    108108   USE dom_oce , ONLY :   e3w_0      =>   e3w_0      !: reference depth of w-points (m) 
    109109   USE dom_oce , ONLY :   gdepw_0    =>   gdepw_0    !: reference depth of w-points (m) 
    110 # if ! defined key_zco 
    111110   USE dom_oce , ONLY :   gdep3w     =>  gdep3w      !: ??? 
    112111   USE dom_oce , ONLY :   gdept      =>  gdept       !: depth of t-points (m) 
     
    119118   USE dom_oce , ONLY :   e3uw       =>  e3uw        !: uw-points (m) 
    120119   USE dom_oce , ONLY :   e3vw       =>  e3vw        !: vw-points (m) 
    121 # endif 
     120 
    122121   USE dom_oce , ONLY :   ln_zps     =>  ln_zps      !: partial steps flag 
    123122   USE dom_oce , ONLY :   ln_sco     =>  ln_sco      !: s-coordinate flag 
Note: See TracChangeset for help on using the changeset viewer.