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 2690 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_c2d.h90 – NEMO

Ignore:
Timestamp:
2011-03-15T16:27:46+01:00 (13 years ago)
Author:
gm
Message:

dynamic mem: #785 ; homogeneization of the coding style associated with dyn allocation

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_c2d.h90

    r2633 r2690  
    3232      !! 
    3333      !!---------------------------------------------------------------------- 
    34       !! * Arguments 
    3534      LOGICAL, INTENT (in) :: ld_print   ! If true, output arrays on numout 
    36  
    37       !! * Local variables 
    38       INTEGER :: ji, jj 
     35      ! 
     36      INTEGER  ::   ji, jj 
    3937      REAL(wp) ::   za00, zd_max, zetmax, zeumax, zefmax, zevmax 
    4038      !!---------------------------------------------------------------------- 
    … …  
    4341      IF(lwp) WRITE(numout,*) 'ldf_dyn_c2d : 2d lateral eddy viscosity coefficient' 
    4442      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 
    45       IF(lwp) WRITE(numout,*) 
    4643 
    4744      ! harmonic operator (ahm1, ahm2) : ( T- and F- points) (used for laplacian operators 
    … …  
    123120         ENDIF 
    124121      ENDIF 
    125  
    126  
     122      ! 
    127123   END SUBROUTINE ldf_dyn_c2d 
    128124 
    … …  
    143139      !! 
    144140      !!---------------------------------------------------------------------- 
    145       !! * Modules used 
    146       USE ldftra_oce, ONLY : aht0 
    147       USE wrk_nemo, ONLY: iwrk_in_use, iwrk_not_released 
    148       USE wrk_nemo, ONLY: icof => iwrk_2d_1 
    149       !! * Arguments 
     141      USE ldftra_oce, ONLY:   aht0 
     142      USE wrk_nemo  , ONLY:   iwrk_in_use, iwrk_not_released 
     143      USE wrk_nemo  , ONLY:   icof => iwrk_2d_1 
     144      ! 
    150145      LOGICAL, INTENT (in) ::   ld_print   ! If true, output arrays on numout 
    151  
    152       !! * Local variables 
    153       INTEGER ::   ji, jj, jn      ! dummy loop indices 
    154       INTEGER ::   inum            ! temporary logical unit 
    155       INTEGER ::   iim, ijm 
    156       INTEGER ::   ifreq, il1, il2, ij, ii 
     146      ! 
     147      INTEGER  ::   ji, jj, jn   ! dummy loop indices 
     148      INTEGER  ::   inum, iim, ijm            ! local integers 
     149      INTEGER  ::   ifreq, il1, il2, ij, ii 
     150      REAL(wp) ::   zahmeq, zcoft, zcoff, zmsk 
     151      CHARACTER (len=15) ::   clexp 
    157152      INTEGER, DIMENSION(jpidta,jpidta) ::   idata 
    158  
    159       REAL(wp) ::   zahmeq, zcoft, zcoff, zmsk 
    160  
    161       CHARACTER (len=15) ::   clexp 
    162153      !!---------------------------------------------------------------------- 
    163154 
    164155      IF( iwrk_in_use(2, 1) )THEN 
    165          CALL ctl_stop('ldf_dyn_c2d_orca: ERROR: requested workspace array is unavailable.') 
    166          RETURN 
    167       END IF 
     156         CALL ctl_stop('ldf_dyn_c2d_orca: requested workspace array is unavailable')   ;   RETURN 
     157      ENDIF 
    168158 
    169159      IF(lwp) WRITE(numout,*) 
    170160      IF(lwp) WRITE(numout,*) 'inildf: 2d eddy viscosity coefficient' 
    171161      IF(lwp) WRITE(numout,*) '~~~~~~  --' 
    172       IF(lwp) WRITE(numout,*) 
    173       IF(lwp) WRITE(numout,*) '        orca ocean model' 
    174       IF(lwp) WRITE(numout,*) 
     162      IF(lwp) WRITE(numout,*) '        orca ocean configuration' 
    175163 
    176164#if defined key_antarctic 
    … …  
    293281      ENDIF 
    294282 
    295       IF( iwrk_not_released(2, 1) )THEN 
    296          CALL ctl_stop('ldf_dyn_c2d_orca: ERROR: failed to release workspace array.') 
     283      IF( iwrk_not_released(2, 1) )   CALL ctl_stop('ldf_dyn_c2d_orca: failed to release workspace array') 
    297284      END IF 
    298  
     285      ! 
    299286   END SUBROUTINE ldf_dyn_c2d_orca 
     287 
    300288 
    301289   SUBROUTINE ldf_dyn_c2d_orca_R1( ld_print ) 
    … …  
    314302      !! 
    315303      !!---------------------------------------------------------------------- 
    316       !! * Modules used 
    317       USE ldftra_oce, ONLY : aht0 
    318       USE wrk_nemo, ONLY: iwrk_in_use, iwrk_not_released 
    319       USE wrk_nemo, ONLY: icof => iwrk_2d_1 
    320  
    321       !! * Arguments 
     304      USE ldftra_oce, ONLY:   aht0 
     305      USE wrk_nemo  , ONLY:   iwrk_in_use, iwrk_not_released 
     306      USE wrk_nemo  , ONLY:   icof => iwrk_2d_1 
     307      ! 
    322308      LOGICAL, INTENT (in) ::   ld_print   ! If true, output arrays on numout 
    323  
    324       !! * Local variables 
     309      ! 
    325310      INTEGER ::   ji, jj, jn      ! dummy loop indices 
    326311      INTEGER ::   inum            ! temporary logical unit 
    327312      INTEGER ::   iim, ijm 
    328313      INTEGER ::   ifreq, il1, il2, ij, ii 
     314      REAL(wp) ::   zahmeq, zcoft, zcoff, zmsk, zam20s 
     315      CHARACTER (len=15) ::   clexp 
    329316      INTEGER, DIMENSION(jpidta,jpidta) ::   idata 
    330  
    331       REAL(wp) ::   zahmeq, zcoft, zcoff, zmsk, zam20s 
    332  
    333       CHARACTER (len=15) ::   clexp 
    334       !!---------------------------------------------------------------------- 
    335  
    336       IF( iwrk_in_use(2, 1) )THEN 
    337          CALL ctl_stop('ldf_dyn_c2d_orca_R1: ERROR: requested workspace array is unavailable.') 
    338          RETURN 
    339       END IF 
     317      !!---------------------------------------------------------------------- 
     318 
     319      IF( iwrk_in_use(2, 1) ) THEN 
     320         CALL ctl_stop('ldf_dyn_c2d_orca_R1: requested workspace array is unavailable')   ;   RETURN 
     321      ENDIF 
    340322 
    341323      IF(lwp) WRITE(numout,*) 
    342324      IF(lwp) WRITE(numout,*) 'inildf: 2d eddy viscosity coefficient' 
    343325      IF(lwp) WRITE(numout,*) '~~~~~~  --' 
    344       IF(lwp) WRITE(numout,*) 
    345       IF(lwp) WRITE(numout,*) '        orca_r1 ocean model' 
    346       IF(lwp) WRITE(numout,*) 
     326      IF(lwp) WRITE(numout,*) '        orca_r1 configuration' 
    347327 
    348328#if defined key_antarctic 
    … …  
    472452      ENDIF 
    473453 
    474       IF( iwrk_not_released(2, 1) )THEN 
    475          CALL ctl_stop('ldf_dyn_c2d_orca_R1: ERROR: failed to release workspace array.') 
    476       END IF 
    477  
     454      IF( iwrk_not_released(2, 1) )   CALL ctl_stop('ldf_dyn_c2d_orca_R1: failed to release workspace array') 
     455      ! 
    478456   END SUBROUTINE ldf_dyn_c2d_orca_R1 
Note: See TracChangeset for help on using the changeset viewer.