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 2625 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DIA – NEMO

Ignore:
Timestamp:
2011-02-27T17:36:24+01:00 (13 years ago)
Author:
gm
Message:

dynamic mem: #785 ; OPA_SRC mpp compilation: suppression of the USE in_out_manager in lib_mpp + style in DYN

Location:
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DIA
Files:
2 edited

Legend:

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

    r2618 r2625  
    9797      INTEGER, DIMENSION(5) ::   ierr 
    9898      !!---------------------------------------------------------------------- 
    99  
    10099      ierr(:) = 0 
    101  
     100      ! 
    102101      ALLOCATE( btmsk(jpi,jpj,nptr) ,           & 
    103          &       htr_adv(jpj) , str_adv(jpj) ,   & 
    104          &       htr_ldf(jpj) , str_ldf(jpj) ,   & 
    105          &       htr_ove(jpj) , str_ove(jpj),    & 
    106          &       htr(jpj,nptr) , str(jpj,nptr) , & 
    107          &       tn_jk(jpj,jpk,nptr) , sn_jk (jpj,jpk,nptr) , v_msf(jpj,jpk,nptr) , & 
    108          &       sjk  (jpj,jpk,nptr) , r1_sjk(jpj,jpk,nptr) , STAT=ierr(1)  ) 
     102         &      htr_adv(jpj) , str_adv(jpj) ,   & 
     103         &      htr_ldf(jpj) , str_ldf(jpj) ,   & 
     104         &      htr_ove(jpj) , str_ove(jpj),    & 
     105         &      htr(jpj,nptr) , str(jpj,nptr) , & 
     106         &      tn_jk(jpj,jpk,nptr) , sn_jk (jpj,jpk,nptr) , v_msf(jpj,jpk,nptr) , & 
     107         &      sjk  (jpj,jpk,nptr) , r1_sjk(jpj,jpk,nptr) , STAT=ierr(1)  ) 
    109108         ! 
    110109#if defined key_diaeiv 
     
    112111         &      v_msf_eiv(jpj,jpk,nptr) , STAT=ierr(2) ) 
    113112#endif 
    114  
    115113      ALLOCATE( p_fval1d(jpj), p_fval2d(jpj,jpk), Stat=ierr(3)) 
    116  
     114      ! 
    117115      ALLOCATE(ndex(jpj*jpk),        ndex_atl(jpj*jpk), ndex_pac(jpj*jpk), & 
    118116         &     ndex_ind(jpj*jpk),    ndex_ipc(jpj*jpk),                    & 
     
    482480      ENDIF 
    483481       
    484       IF( lk_mpp )   CALL mpp_ini_znl     ! Define MPI communicator for zonal sum 
     482      IF( lk_mpp )   CALL mpp_ini_znl( numout )     ! Define MPI communicator for zonal sum 
    485483 
    486484      IF( ln_subbas ) THEN                ! load sub-basin mask 
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r2613 r2625  
    4848   USE dtatem 
    4949   USE dtasal 
     50   USE lib_mpp         ! MPP library 
    5051 
    5152   IMPLICIT NONE 
     
    7576CONTAINS 
    7677 
    77    FUNCTION dia_wri_alloc() 
     78   INTEGER FUNCTION dia_wri_alloc() 
    7879      !!---------------------------------------------------------------------- 
    79       IMPLICIT none 
    80       INTEGER :: dia_wri_alloc 
    8180      INTEGER, DIMENSION(2) :: ierr 
    8281      !!---------------------------------------------------------------------- 
     
    8988         ! 
    9089      dia_wri_alloc = MAXVAL(ierr) 
    91       IF( lk_mpp )   CALL mpp_sum( ierr ) 
     90      IF( lk_mpp )   CALL mpp_sum( dia_wri_alloc ) 
    9291      ! 
    9392  END FUNCTION dia_wri_alloc 
Note: See TracChangeset for help on using the changeset viewer.