Changeset 896


Ignore:
Timestamp:
2008-04-22T16:02:23+02:00 (13 years ago)
Author:
rblod
Message:

Update KPP according to step reorganization (nemo_v2) …, see ticket #101

Location:
trunk/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DOM/dommsk.F90

    r719 r896  
    171171#if defined key_zdfkpp 
    172172      IF( cp_cfg == 'orca' )   THEN 
    173          IF( jp_cfg = 2 )   THEN 
     173         IF( jp_cfg == 2 )   THEN 
    174174            ! land point on Bab el Mandeb zonal section 
    175175            ij0 =  87   ;   ij1 =  88 
  • trunk/NEMO/OPA_SRC/ZDF/zdfkpp.F90

    r888 r896  
    2828   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    2929   USE prtctl          ! Print control 
     30   USE trdmod          ! momentum/tracers trends  
    3031 
    3132   IMPLICIT NONE 
     
    145146#  include "domzgr_substitute.h90" 
    146147#  include "vectopt_loop_substitute.h90" 
     148#  include  "zdfddm_substitute.h90" 
    147149   !!---------------------------------------------------------------------- 
    148150   !!   OPA 9.0 , LOCEAN-IPSL   (2005) 
     
    12411243 
    12421244 
    1243    SUBROUTINE tra_kpp 
     1245   SUBROUTINE tra_kpp( kt ) 
    12441246      !!---------------------------------------------------------------------- 
    12451247      !!                  ***  ROUTINE tra_kpp  *** 
     
    12571259                         ztrds => va          ! use va as 3D workspace 
    12581260      !!---------------------------------------------------------------------- 
     1261      INTEGER, INTENT(in) :: kt 
     1262      INTEGER :: ji, jj, jk 
    12591263 
    12601264      IF( kt == nit000 ) THEN 
     
    12931297      ENDIF 
    12941298 
    1295       IF(ln_ctl)   CALL prt_ctl( tab3d_1=ta, clinfo1=' kpp  - Ta: ', mask1=tmask,   & 
    1296          &                       tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
     1299      IF(ln_ctl) THEN   
     1300         CALL prt_ctl( tab3d_1=ta, clinfo1=' kpp  - Ta: ', mask1=tmask,   & 
     1301         &             tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
    12971302      ENDIF 
    12981303 
     
    14831488      CASE DEFAULT 
    14841489         WRITE(ctmp1,*) '          bad flag value for nave = ', nave 
    1485          CALL ctl_opa( ctmp1 ) 
     1490         CALL ctl_stop( ctmp1 ) 
    14861491 
    14871492      END SELECT 
     
    14981503         !   Background profile of avt (fit a theoretical/observational profile (Krauss 1990)  
    14991504         avmb(:) = avm0 
    1500          avtb(:) = 1.e-5 + 2.8e-8 * gdepw(:)   ! m2/s 
     1505         avtb(:) = 1.e-5 + 2.8e-8 * gdepw_0(:)   ! m2/s 
    15011506      ENDIF 
    15021507 
Note: See TracChangeset for help on using the changeset viewer.