New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 87 – NEMO

Changeset 87


Ignore:
Timestamp:
2004-04-22T15:41:04+02:00 (20 years ago)
Author:
opalod
Message:

CT : UPDATE057 : # General syntax, alignement, comments corrections

# l_ctl alone replace the set (l_ctl .AND. lwp)
# Add of diagnostics which are activated when using l_ctl logical

Location:
trunk/NEMO/OPA_SRC/TRA
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/TRA/trabbl.F90

    r32 r87  
    339339      END DO 
    340340 
    341       IF( l_ctl .AND. lwp ) THEN 
     341      IF(l_ctl) THEN 
    342342         zta = SUM( ta(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) ) 
    343343         zsa = SUM( sa(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) ) 

  • trunk/NEMO/OPA_SRC/TRA/tranxt.F90

    r3 r87  
    163163      !                                                ! =============== 
    164164 
    165       IF( l_ctl .AND. lwp ) THEN         ! print mean field (used for debugging) 
     165      IF(l_ctl) THEN         ! print mean field (used for debugging) 
    166166         WRITE(numout,*) ' nxt  - Tn: ', SUM(tn*tmask), ' Sn: ', SUM(sn*tmask) 
    167167      ENDIF 

  • trunk/NEMO/OPA_SRC/TRA/traqsr.F90

    r32 r87  
    172172      ENDIF 
    173173 
    174       IF( l_ctl .AND. lwp ) THEN         ! print mean trends (used for debugging) 
     174      IF(l_ctl) THEN         ! print mean trends (used for debugging) 
    175175         zta = SUM( ta(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) ) 
    176176         zta = SUM( ta * tmask )  

  • trunk/NEMO/OPA_SRC/TRA/trasbc.F90

    r3 r87  
    121121      END DO 
    122122       
    123       IF( l_ctl .AND. lwp ) THEN         ! print mean trends (used for debugging) 
     123      IF(l_ctl) THEN         ! print mean trends (used for debugging) 
    124124         zta = SUM( ta(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) ) 
    125125         zsa = SUM( sa(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) ) 

  • trunk/NEMO/OPA_SRC/TRA/trazdf_iso.F90

    r36 r87  
    138138#if defined key_traldf_eiv   ||   defined key_esopa 
    139139      REAL(wp), DIMENSION(jpi,jpk) ::   & 
    140          ztfwg, zsfwg, zavs  
     140         ztfwg, zsfwg  
    141141      REAL(wp) ::                       & 
    142142         zcoeg3,                        & 
    143143         zuwk, zvwk,                    & 
    144144         zuwki, zvwki 
     145#endif 
     146#if defined key_zdfddm   ||   defined key_esopa 
     147      REAL(wp), DIMENSION(jpi,jpk) ::   & 
     148         zavs  
    145149#endif 
    146150      !!--------------------------------------------------------------------- 
    … …  
    366370 
    367371 
    368       IF( l_ctl .AND. lwp ) THEN         ! print mean trends (used for debugging) 
     372      IF(l_ctl) THEN         ! print mean trends (used for debugging) 
    369373         zta = SUM( ta(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) ) 
    370374         zsa = SUM( sa(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) ) 
    … …  
    529533      !                                                ! =============== 
    530534 
    531       IF( l_ctl .AND. lwp ) THEN         ! print mean trends (used for debugging) 
     535      IF(l_ctl) THEN         ! print mean trends (used for debugging) 
    532536         zta = SUM( ta(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) ) 
    533537         zsa = SUM( sa(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) ) 

  • trunk/NEMO/OPA_SRC/TRA/zpshde.F90

    r32 r87  
    7272      !!          Idem for di(s) and dj(s)           
    7373      !! 
    74       !!      For rho, we call eos2d.h which will compute rd~(t~,s~) at  
     74      !!      For rho, we call eos_insitu_2d which will compute rd~(t~,s~) at  
    7575      !!      the good depth zh from interpolated T and S for the different 
    7676      !!      formulation of the equation of state (eos). 
Note: See TracChangeset for help on using the changeset viewer.