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 921 for trunk/NEMO/LIM_SRC_3/limcons.F90 – NEMO

Ignore:
Timestamp:
2008-05-13T10:28:52+02:00 (16 years ago)
Author:
rblod
Message:

Correct indentation and print for debug in LIM3, see ticket #134, step I

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/LIM_SRC_3/limcons.F90

    r834 r921  
    4242CONTAINS 
    4343 
    44 !=============================================================================== 
     44   !=============================================================================== 
    4545 
    4646   SUBROUTINE lim_column_sum(nsum,xin,xout) 
    47 !     !!------------------------------------------------------------------- 
    48 !     !!               ***  ROUTINE lim_column_sum *** 
    49 !     !! 
    50 !     !! ** Purpose : Compute the sum of xin over nsum categories 
    51 !     !! 
    52 !     !! ** Method  : Arithmetics 
    53 !     !! 
    54 !     !! ** Action  : Gets xin(ji,jj,jl) and computes xout(ji,jj) 
    55 !     !! 
    56 !     !! History : 
    57 !     !!   author: William H. Lipscomb, LANL 
    58 !     !!   2.1  !  04-06  (M. Vancoppenolle)   Energy Conservation  
    59 !     !!--------------------------------------------------------------------- 
    60 !     !! * Local variables 
     47      !     !!------------------------------------------------------------------- 
     48      !     !!               ***  ROUTINE lim_column_sum *** 
     49      !     !! 
     50      !     !! ** Purpose : Compute the sum of xin over nsum categories 
     51      !     !! 
     52      !     !! ** Method  : Arithmetics 
     53      !     !! 
     54      !     !! ** Action  : Gets xin(ji,jj,jl) and computes xout(ji,jj) 
     55      !     !! 
     56      !     !! History : 
     57      !     !!   author: William H. Lipscomb, LANL 
     58      !     !!   2.1  !  04-06  (M. Vancoppenolle)   Energy Conservation  
     59      !     !!--------------------------------------------------------------------- 
     60      !     !! * Local variables 
    6161      INTEGER, INTENT(in) ::     & 
    62            nsum                  ! number of categories/layers 
     62         nsum                  ! number of categories/layers 
    6363 
    6464      REAL (wp), DIMENSION(jpi, jpj, jpl), INTENT(IN) ::   & 
    65            xin                   ! input field 
     65         xin                   ! input field 
    6666 
    6767      REAL (wp), DIMENSION(jpi, jpj), INTENT(OUT) ::  & 
    68            xout                  ! output field 
     68         xout                  ! output field 
    6969      INTEGER ::                 & 
    70            ji, jj, jl         ! horizontal indices 
    71  
    72 !     !!--------------------------------------------------------------------- 
    73 !     WRITE(numout,*) ' lim_column_sum ' 
    74 !     WRITE(numout,*) ' ~~~~~~~~~~~~~~ ' 
     70         ji, jj, jl         ! horizontal indices 
     71 
     72      !     !!--------------------------------------------------------------------- 
     73      !     WRITE(numout,*) ' lim_column_sum ' 
     74      !     WRITE(numout,*) ' ~~~~~~~~~~~~~~ ' 
    7575 
    7676      xout(:,:) = 0.00 
     
    8686   END SUBROUTINE lim_column_sum 
    8787 
    88 !=============================================================================== 
     88   !=============================================================================== 
    8989 
    9090   SUBROUTINE lim_column_sum_energy(nsum,nlay,xin,xout) 
     
    106106      !! * Local variables 
    107107      INTEGER, INTENT(in) ::  & 
    108            nsum,              &  !: number of categories 
    109            nlay                  !: number of vertical layers 
     108         nsum,              &  !: number of categories 
     109         nlay                  !: number of vertical layers 
    110110 
    111111      REAL (wp), DIMENSION(jpi, jpj, jkmax, jpl), INTENT(IN) :: & 
    112            xin                   !: input field 
     112         xin                   !: input field 
    113113 
    114114      REAL (wp), DIMENSION(jpi, jpj), INTENT(OUT) ::  & 
    115            xout                  !: output field 
     115         xout                  !: output field 
    116116 
    117117      INTEGER ::              & 
    118            ji, jj,            &  !: horizontal indices 
    119            jk, jl                !: layer and category  indices 
    120       !!--------------------------------------------------------------------- 
    121  
    122 !     WRITE(numout,*) ' lim_column_sum_energy ' 
    123 !     WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~~~~~ ' 
     118         ji, jj,            &  !: horizontal indices 
     119         jk, jl                !: layer and category  indices 
     120      !!--------------------------------------------------------------------- 
     121 
     122      !     WRITE(numout,*) ' lim_column_sum_energy ' 
     123      !     WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~~~~~ ' 
    124124 
    125125      xout(:,:) = 0.00 
     
    137137   END SUBROUTINE lim_column_sum_energy 
    138138 
    139 !=============================================================================== 
    140     
     139   !=============================================================================== 
     140 
    141141   SUBROUTINE lim_cons_check(x1, x2, max_err, fieldid) 
    142142      !!------------------------------------------------------------------- 
     
    206206                  WRITE (numout,*) ' Point         : ', ji, jj  
    207207                  WRITE (numout,*) ' lat, lon      : ', gphit(ji,jj), &  
    208                                                         glamt(ji,jj) 
     208                     glamt(ji,jj) 
    209209                  WRITE (numout,*) ' Initial value : ', x1(ji,jj) 
    210210                  WRITE (numout,*) ' Final value   : ', x2(ji,jj) 
Note: See TracChangeset for help on using the changeset viewer.