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 3208 – NEMO

Changeset 3208


Ignore:
Timestamp:
2011-12-09T17:52:22+01:00 (12 years ago)
Author:
smasson
Message:

simplified syntaxe for performance tests

Location:
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

    r3186 r3208  
    230230#if defined key_mpp_mpi 
    231231      ijpjjpk = jpj*jpk 
    232       CALL wrk_alloc(  ijpjjpk , zwork ) 
     232      CALL wrk_alloc( jpj*jpk, zwork ) 
    233233#endif 
    234234 
     
    264264      ! 
    265265#if defined key_mpp_mpi 
    266       CALL wrk_dealloc( ijpjjpk , zwork ) 
     266      CALL wrk_dealloc( jpj*jpk, zwork ) 
    267267#endif 
    268268      ! 
     
    298298#if defined key_mpp_mpi 
    299299      ijpjjpk = jpj*jpk 
    300       CALL wrk_alloc( ijpjjpk , zwork ) 
     300      CALL wrk_alloc( jpj*jpk, zwork ) 
    301301#endif 
    302302 
     
    319319      ! 
    320320#if defined key_mpp_mpi 
    321       CALL wrk_dealloc( ijpjjpk , zwork ) 
     321      CALL wrk_dealloc( jpj*jpk, zwork ) 
    322322#endif 
    323323      !     
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90

    r3186 r3208  
    8989      ijpl = SIZE( pt_ice, 3 )                     ! number of ice categories 
    9090 
    91       CALL wrk_alloc( jpi,jpj,ijpl, zalbfz, zficeth ) 
     91      CALL wrk_alloc( jpi,jpj,SIZE( pt_ice, 3 ), zalbfz, zficeth ) 
    9292 
    9393      IF( albd_init == 0 )   CALL albedo_init      ! initialization  
Note: See TracChangeset for help on using the changeset viewer.