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/OFF_SRC/nemogcm.F90 – NEMO

Ignore:
Timestamp:
2011-03-15T16:27:46+01:00 (12 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/OFF_SRC/nemogcm.F90

    r2669 r2690  
    4141   USE lib_mpp         ! distributed memory computing 
    4242#if defined key_iomput 
    43    USE  mod_ioclient 
     43   USE mod_ioclient 
    4444#endif  
    4545 
     
    165165      ! This used to be done in par_oce.F90 when they were parameters rather 
    166166      ! than variables 
    167       jpi = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci !: first  dim. 
    168       jpj = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj !: second dim. 
    169       jpk = jpkdta                                           !: third dim 
    170       jpim1 = jpi-1                                          !: inner domain indices 
    171       jpjm1 = jpj-1                                          !:   "           " 
    172       jpkm1 = jpk-1                                          !:   "           " 
    173       jpij  = jpi*jpj                                        !:  jpi x j 
     167      jpi = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci   ! first  dim. 
     168      jpj = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj   ! second dim. 
     169      jpk = jpkdta                                             ! third dim 
     170      jpim1 = jpi-1                                            ! inner domain indices 
     171      jpjm1 = jpj-1                                            !   "           " 
     172      jpkm1 = jpk-1                                            !   "           " 
     173      jpij  = jpi*jpj                                          !  jpi x j 
    174174 
    175175 
     
    341341   END SUBROUTINE nemo_closefile 
    342342 
     343 
    343344   SUBROUTINE nemo_alloc 
    344      !!---------------------------------------------------------------------- 
    345      !!                     ***  ROUTINE nemo_alloc  *** 
    346      !! 
    347      !! ** Purpose :   Allocate all the dynamic arrays of the OPA modules 
    348      !! 
    349      !! ** Method  : 
    350      !!---------------------------------------------------------------------- 
    351      USE diawri,       ONLY: dia_wri_alloc 
    352      USE dom_oce,      ONLY: dom_oce_alloc 
    353      USE zdf_oce,      ONLY: zdf_oce_alloc 
    354      USE zdfmxl,       ONLY: zdf_mxl_alloc 
    355      USE ldftra_oce,   ONLY: ldftra_oce_alloc 
    356      USE trc_oce,      ONLY: trc_oce_alloc 
    357  
     345      !!---------------------------------------------------------------------- 
     346      !!                     ***  ROUTINE nemo_alloc  *** 
     347      !! 
     348      !! ** Purpose :   Allocate all the dynamic arrays of the OPA modules 
     349      !! 
     350      !! ** Method  : 
     351      !!---------------------------------------------------------------------- 
     352      USE diawri,       ONLY: dia_wri_alloc 
     353      USE dom_oce,      ONLY: dom_oce_alloc 
     354      USE zdf_oce,      ONLY: zdf_oce_alloc 
     355      USE zdfmxl,       ONLY: zdf_mxl_alloc 
     356      USE ldftra_oce,   ONLY: ldftra_oce_alloc 
     357      USE trc_oce,      ONLY: trc_oce_alloc 
    358358      USE wrk_nemo,    ONLY: wrk_alloc 
    359  
     359      ! 
    360360      INTEGER :: ierr 
    361361      !!---------------------------------------------------------------------- 
    362  
     362      ! 
    363363      ierr =        oce_alloc       ()          ! ocean  
    364364      ierr = ierr + dia_wri_alloc   () 
     
    371371      ierr = ierr + trc_oce_alloc   ()          ! shared TRC / TRA arrays 
    372372      ierr = ierr + wrk_alloc(numout, lwp) 
    373  
     373      ! 
    374374      IF( lk_mpp    )   CALL mpp_sum( ierr ) 
    375       IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'nemo_alloc : unable to allocate standard ocean arrays' ) 
     375      IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'nemo_alloc: unable to allocate standard ocean arrays' ) 
    376376      ! 
    377377   END SUBROUTINE nemo_alloc 
     378 
    378379 
    379380   SUBROUTINE nemo_partition( num_pes ) 
     
    423424   END SUBROUTINE nemo_partition 
    424425 
     426 
    425427   SUBROUTINE factorise( kfax, kmaxfax, knfax, kn, kerr ) 
    426428      !!---------------------------------------------------------------------- 
     
    439441      INTEGER, PARAMETER :: ntest = 14 
    440442      INTEGER :: ilfax(ntest) 
    441  
     443      ! 
    442444      ! lfax contains the set of allowed factors. 
    443445      data (ilfax(jl),jl=1,ntest) / 16384, 8192, 4096, 2048, 1024, 512, 256,  & 
Note: See TracChangeset for help on using the changeset viewer.