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

Changeset 2660


Ignore:
Timestamp:
2011-03-05T09:19:54+01:00 (12 years ago)
Author:
gm
Message:

dynamic mem: #785 ; re-Fixed bug in call to mpp_sum instead of ctl_warn in traldf and cla

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

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/LBC/cla.F90

    r2658 r2660  
    4444   !                                ! for Bab-el-Mandeb, Gibraltar, and Hormuz straits 
    4545    
    46    !                                                              !!! profile of hdiv for some straits 
    47    REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) ::   hdiv_139_101, hdiv_139_101_kt    ! Gibraltar     strait, fixed & time evolving part (i,j)=(172,101) 
    48    REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) ::   hdiv_139_102                     ! Gibraltar     strait, fixed part only            (i,j)=(139,102) 
    49    REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) ::   hdiv_141_102, hdiv_141_102_kt    ! Gibraltar     strait, fixed & time evolving part (i,j)=(141,102) 
    50    REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) ::   hdiv_161_88 , hdiv_161_88_kt     ! Bab-el-Mandeb strait, fixed & time evolving part (i,j)=(161,88) 
    51    REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) ::   hdiv_161_87                      ! Bab-el-Mandeb strait, fixed part only            (i,j)=(161,87) 
    52    REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) ::   hdiv_160_89 , hdiv_160_89_kt     ! Bab-el-Mandeb strait, fixed & time evolving part (i,j)=(160,89) 
    53    REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) ::   hdiv_172_94                      ! Hormuz        strait, fixed part only            (i,j)=(172, 94) 
    54  
    55    REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) ::   t_171_94_hor, s_171_94_hor       ! Temperature, salinity in the Hormuz strait 
     46   !                                           !   fixed part  !  time evolving    !!! profile of hdiv for some straits 
     47   REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) ::   hdiv_139_101, hdiv_139_101_kt    ! Gibraltar     (i,j)=(172,101) 
     48   REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) ::   hdiv_139_102                     ! Gibraltar     (i,j)=(139,102) 
     49   REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) ::   hdiv_141_102, hdiv_141_102_kt    ! Gibraltar     (i,j)=(141,102) 
     50   REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) ::   hdiv_161_88 , hdiv_161_88_kt     ! Bab-el-Mandeb (i,j)=(161,88) 
     51   REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) ::   hdiv_161_87                      ! Bab-el-Mandeb (i,j)=(161,87) 
     52   REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) ::   hdiv_160_89 , hdiv_160_89_kt     ! Bab-el-Mandeb (i,j)=(160,89) 
     53   REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) ::   hdiv_172_94                      ! Hormuz        (i,j)=(172, 94) 
     54 
     55   REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) ::   t_171_94_hor, s_171_94_hor       ! Temperature, salinity in Hormuz strait 
    5656    
    5757   !! * Substitutions 
     
    187187      ! 
    188188      !                           ! Allocate arrays for this module 
    189       ALLOCATE( hdiv_139_101(jpk), hdiv_139_101_kt(jpk), & 
    190                 hdiv_139_102(jpk),                       & 
    191                 hdiv_141_102(jpk), hdiv_141_102_kt(jpk), & 
    192                 hdiv_161_88(jpk) , hdiv_161_88_kt(jpk) , &    
    193                 hdiv_161_87(jpk) ,                       &                      
    194                 hdiv_160_89(jpk) , hdiv_160_89_kt(jpk),  & 
    195                 hdiv_172_94(jpk) ,                       & 
    196                 t_171_94_hor(jpk), s_171_94_hor(jpk),    & 
    197                 STAT=ierr ) 
    198       IF( lk_mpp    )   CALL ctl_warn( 'cla_init : unable to allocate arrays' ) 
    199       IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'cla_init : unable to allocate arrays' ) 
     189      ALLOCATE( hdiv_139_101(jpk) , hdiv_139_101_kt(jpk) ,     &    ! Gibraltar 
     190         &      hdiv_139_102(jpk) ,                            & 
     191         &      hdiv_141_102(jpk) , hdiv_141_102_kt(jpk) ,     & 
     192         &      hdiv_161_88 (jpk) , hdiv_161_88_kt (jpk) ,     &    ! Bab-el-Mandeb 
     193         &      hdiv_161_87 (jpk) ,                            &                      
     194         &      hdiv_160_89 (jpk) , hdiv_160_89_kt (jpk) ,     &     ! Hormuz 
     195         &      hdiv_172_94 (jpk) ,                            & 
     196         &      t_171_94_hor(jpk) , s_171_94_hor   (jpk) , STAT=ierr ) 
     197      IF( lk_mpp    )   CALL mpp_sum( ierr ) 
     198      IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'cla_init: unable to allocate arrays' ) 
    200199      ! 
    201200      IF( .NOT.lk_dynspg_flt )   CALL ctl_stop( 'cla_init: Cross Land Advection works only with lk_dynspg_flt=T ' ) 
    202201      ! 
    203       IF( lk_vvl    )   CALL ctl_stop( 'cla_init: Cross Land Advection does not work with lk_vvl=T option' ) 
    204       ! 
    205       IF( jpk /= 31 )   CALL ctl_stop( 'cla_init: Cross Land Advection hard coded for ORCA_R2_L31' ) 
     202      IF( lk_vvl             )   CALL ctl_stop( 'cla_init: Cross Land Advection does not work with lk_vvl=T option' ) 
     203      ! 
     204      IF( jpk /= 31          )   CALL ctl_stop( 'cla_init: Cross Land Advection hard coded for ORCA_R2_L31' ) 
    206205      ! 
    207206      !                                        _|_______|_______|_ 
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90

    r2659 r2660  
    263263      !                              ! allocate trabbl arrays 
    264264      ALLOCATE( t0_ldf(jpi,jpj,jpk) , s0_ldf(jpi,jpj,jpk) , STAT=ierr ) 
    265       IF( lk_mpp    )   CALL ctl_warn( 'ldf_ano : unable to allocate arrays' ) 
    266       IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'ldf_ano : unable to allocate arrays' ) 
     265      IF( lk_mpp    )   CALL mpp_sum( ierr ) 
     266      IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'ldf_ano: unable to allocate arrays' ) 
    267267 
    268268      ! defined the T & S reference profiles 
Note: See TracChangeset for help on using the changeset viewer.