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 106 for trunk/NEMO/OPA_SRC/step.F90 – NEMO

Ignore:
Timestamp:
2004-06-28T10:08:06+02:00 (20 years ago)
Author:
opalod
Message:

CT : UPDATE067 : Add control indices nictl, njctl used in SUM function output to compare mono versus multi procs runs

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/step.F90

    r75 r106  
    214214 
    215215      IF(l_ctl) THEN         ! print mean trends (used for debugging) 
    216          WRITE(numout,*) ' emp  -   : ', SUM( emp       * tmask(:,:,1) ) 
    217          WRITE(numout,*) ' emps -   : ', SUM( emps      * tmask(:,:,1) ) 
    218          WRITE(numout,*) ' qt   -   : ', SUM( qt        * tmask(:,:,1) ) 
    219          WRITE(numout,*) ' qsr  -   : ', SUM( qsr       * tmask(:,:,1) ) 
    220          WRITE(numout,*) ' runoff   : ', SUM( runoff    * tmask(:,:,1) ) 
    221          WRITE(numout,*) ' tmask    : ', SUM( tmask                   ) 
    222          WRITE(numout,*) ' sst  -   : ', SUM( tn(:,:,1) * tmask(:,:,1) ) 
    223          WRITE(numout,*) ' sss  -   : ', SUM( sn(:,:,1) * tmask(:,:,1) ) 
    224          WRITE(numout,*) ' tau  - x : ', SUM( taux ), ' - y : ', SUM( tauy ) 
     216         WRITE(numout,*) ' emp  -   : ', SUM( emp   (1:nictl+1,1:njctl+1)   * tmask(1:nictl+1,1:njctl+1,1) ) 
     217         WRITE(numout,*) ' emps -   : ', SUM( emps  (1:nictl+1,1:njctl+1)   * tmask(1:nictl+1,1:njctl+1,1) ) 
     218         WRITE(numout,*) ' qt   -   : ', SUM( qt    (1:nictl+1,1:njctl+1)   * tmask(1:nictl+1,1:njctl+1,1) ) 
     219         WRITE(numout,*) ' qsr  -   : ', SUM( qsr   (1:nictl+1,1:njctl+1)   * tmask(1:nictl+1,1:njctl+1,1) ) 
     220         WRITE(numout,*) ' runoff   : ', SUM( runoff(1:nictl+1,1:njctl+1)   * tmask(1:nictl+1,1:njctl+1,1) ) 
     221         WRITE(numout,*) ' tmask    : ', SUM( tmask (1:nictl+1,1:njctl+1,:) ) 
     222         WRITE(numout,*) ' sst  -   : ', SUM( tn    (1:nictl+1,1:njctl+1,1) * tmask(1:nictl+1,1:njctl+1,1) ) 
     223         WRITE(numout,*) ' sss  -   : ', SUM( sn    (1:nictl+1,1:njctl+1,1) * tmask(1:nictl+1,1:njctl+1,1) ) 
     224         WRITE(numout,*) ' tau  - x : ', SUM( taux  (1:nictl+1,1:njctl+1) ), ' - y : ', SUM( tauy(1:nictl+1,1:njctl+1) ) 
    225225      ENDIF 
    226226 
Note: See TracChangeset for help on using the changeset viewer.