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 8882 for branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/module_example – NEMO

Ignore:
Timestamp:
2017-12-01T18:44:09+01:00 (6 years ago)
Author:
flavoni
Message:

dev_CNRS_2017 branch: merged dev_r7881_ENHANCE09_RK3 with trunk r8864

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/module_example

    r4147 r8882  
    8686      !!                Give references if exist otherwise suppress these lines 
    8787      !!---------------------------------------------------------------------- 
    88       USE toto_module      ! description of the module 
    89       USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    90       USE wrk_nemo, ONLY:   zztab => wrk_2d_5                     ! 2D workspace 
    91       USE wrk_nemo, ONLY:   zwx => wrk_3d_12 , zwy => wrk_3d_13   ! 3D workspace 
    92       !! 
    9388      INTEGER , INTENT(in   )                     ::   kt      ! short description  
    9489      INTEGER , INTENT(inout)                     ::   pvar1   !   -         - 
     
    10095      REAL(wp) ::   zmlmin, zbbrau   ! temporary scalars     (DOCTOR : start with z) 
    10196      REAL(wp) ::   zfact1, zfact2   ! do not use continuation lines in declaration 
     97      REAL(wp), DIMENSION(jpi,jpj) ::   zwrk_2d   ! 2D workspace 
    10298      !!-------------------------------------------------------------------- 
    103  
    104       IF( wrk_in_use(3, 12,13) .OR. wrk_in_use(2, 5 ) THEN 
    105          CALL ctl_stop('exa_mpl: requested workspace arrays unavailable')   ;   RETURN 
    106       ENDIF 
    107  
     99      ! 
    108100      IF( kt == nit000  )   CALL exa_mpl_init    ! Initialization (first time-step only) 
    109101 
     
    119111            DO jj = 2, jpjm1 
    120112               DO ji = fs_2, fs_jpim1   ! vector opt. 
    121                   avmv(ji,jj,jk) = .... 
     113                  avm(ji,jj,jk) = .... 
    122114               END DO 
    123115            END DO 
     
    128120            DO jj = 2, jpjm1 
    129121               DO ji = fs_2, fs_jpim1   ! vector opt. 
    130                   avmv(ji,jj,jk) = ... 
     122                  avm(ji,jj,jk) = ... 
    131123               END DO 
    132124            END DO 
     
    135127      END SELECT 
    136128      ! 
    137       CALL mpplnk2( avmu, 'U', 1. )              ! Lateral boundary conditions (unchanged sign) 
    138       ! 
    139       IF( wrk_not_released(3, 12,13) .OR. wrk_not_released(2, 5 ) THEN 
    140          CALL ctl_stop('exa_mpl: failed to release workspace arrays')   ;   RETURN 
    141       ENDIF 
     129      CALL lbc_lnk( avm, 'T', 1. )              ! Lateral boundary conditions (unchanged sign) 
    142130      ! 
    143131   END SUBROUTINE exa_mpl 
Note: See TracChangeset for help on using the changeset viewer.