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

Ignore:
Timestamp:
2011-03-01T20:04:06+01:00 (13 years ago)
Author:
gm
Message:

dynamic mem: #785 ; move ctl_stop & warn in lib_mpp to avoid a circular dependency + ctl_stop improvment

Location:
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN
Files:
19 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90

    r2625 r2636  
    3131   USE in_out_manager  ! I/O manager 
    3232   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
     33   USE lib_mpp         ! MPP library 
    3334 
    3435   IMPLICIT NONE 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv.F90

    r2625 r2636  
    1414   USE dom_oce         ! ocean space and time domain 
    1515   USE in_out_manager  ! I/O manager 
     16   USE lib_mpp         ! MPP library 
    1617 
    1718   USE dynadv_cen2     ! centred flux form advection      (dyn_adv_cen2 routine) 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_cen2.F90

    r2633 r2636  
    1818   USE trdmod         ! ocean dynamics trends 
    1919   USE in_out_manager ! I/O manager 
     20   USE lib_mpp         ! MPP library 
    2021   USE prtctl         ! Print control 
    2122 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_ubs.F90

    r2633 r2636  
    1616   USE oce            ! ocean dynamics and tracers 
    1717   USE dom_oce        ! ocean space and time domain 
    18    USE in_out_manager ! I/O manager 
    19    USE lbclnk         ! ocean lateral boundary conditions (or mpp link) 
    2018   USE trdmod         ! ocean dynamics trends 
    2119   USE trdmod_oce     ! ocean variables trends 
     20   USE in_out_manager ! I/O manager 
    2221   USE prtctl         ! Print control 
     22   USE lbclnk         ! ocean lateral boundary conditions (or mpp link) 
     23   USE lib_mpp        ! MPP library 
    2324 
    2425   IMPLICIT NONE 
    … …  
    9293      IF( wrk_in_use(3, 1,2,3,4,5,6,7) .OR. wrk_in_use(4, 1,2,3,4) ) THEN 
    9394         CALL ctl_stop('dyn_adv_ubs : requested workspace array unavailable')   ;   RETURN 
    94       END IF 
     95      ENDIF 
    9596 
    9697      zfu_t(:,:,:) = 0._wp 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

    r2633 r2636  
    3636   USE prtctl          ! Print control 
    3737   USE lbclnk          ! lateral boundary condition  
     38   USE lib_mpp         ! MPP library 
    3839 
    3940   IMPLICIT NONE 
    … …  
    8081      !! 
    8182      INTEGER, INTENT(in) ::   kt   ! ocean time-step index 
    82       !! 
    83       !!---------------------------------------------------------------------- 
    84       ! 
    85       IF(wrk_in_use(3, 1,2) ) THEN 
     83      !!---------------------------------------------------------------------- 
     84      ! 
     85      IF( wrk_in_use(3, 1,2) ) THEN 
    8686         CALL ctl_stop('dyn_hpg: requested workspace arrays are unavailable')   ;   RETURN 
    87       END IF 
     87      ENDIF 
    8888      ! 
    8989      IF( l_trddyn ) THEN                    ! Temporary saving of ua and va trends (l_trddyn) 
    … …  
    111111         &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    112112      ! 
    113       IF(wrk_not_released(3, 1,2) )   CALL ctl_stop('dyn_hpg: failed to release workspace arrays') 
     113      IF( wrk_not_released(3, 1,2) )   CALL ctl_stop('dyn_hpg: failed to release workspace arrays') 
    114114      ! 
    115115   END SUBROUTINE dyn_hpg 
    … …  
    152152      ! 
    153153      IF( lk_vvl .AND. .NOT. ln_hpg_sco )   & 
    154          &   CALL ctl_stop( 'dyn_hpg_init : variable volume key_vvl require the standard jacobian formulation hpg_sco') 
     154         &   CALL ctl_stop('dyn_hpg_init : variable volume key_vvl require the standard jacobian formulation hpg_sco') 
    155155      ! 
    156156      !                               ! Set nhpg from ln_hpg_... flags 
    … …  
    172172      IF( ln_hpg_djc )   ioptio = ioptio + 1 
    173173      IF( ln_hpg_rot )   ioptio = ioptio + 1 
    174       IF ( ioptio /= 1 )   CALL ctl_stop( ' NO or several hydrostatic pressure gradient options used' ) 
     174      IF( ioptio /= 1 )   CALL ctl_stop( 'NO or several hydrostatic pressure gradient options used' ) 
    175175      ! 
    176176   END SUBROUTINE dyn_hpg_init 
    … …  
    619619      !!---------------------------------------------------------------------- 
    620620 
    621       IF(wrk_in_use(3, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) ) THEN 
     621      IF( wrk_in_use(3, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) ) THEN 
    622622         CALL ctl_stop('dyn:hpg_djc : requested workspace arrays unavailable')   ;   RETURN 
    623       END IF 
     623      ENDIF 
    624624 
    625625      IF( kt == nit000 ) THEN 
    … …  
    819819      END DO 
    820820      ! 
    821       IF(wrk_not_released(3, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) )   & 
    822          CALL ctl_stop('dyn:hpg_djc : failed to release workspace arrays.') 
     821      IF( wrk_not_released(3, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) )   & 
     822         CALL ctl_stop('dyn:hpg_djc : failed to release workspace arrays') 
    823823      ! 
    824824   END SUBROUTINE hpg_djc 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynkeg.F90

    r2633 r2636  
    1414   USE oce             ! ocean dynamics and tracers 
    1515   USE dom_oce         ! ocean space and time domain 
    16    USE in_out_manager  ! I/O manager 
    1716   USE trdmod          ! ocean dynamics trends  
    1817   USE trdmod_oce      ! ocean variables trends 
     18   USE in_out_manager  ! I/O manager 
     19   USE lib_mpp         ! MPP library 
    1920   USE prtctl          ! Print control 
    2021 
    … …  
    6162      !!---------------------------------------------------------------------- 
    6263 
    63       IF(wrk_in_use(3,1) ) THEN 
    64          CALL ctl_stop('dyn_key: requested workspace array is unavailable.')   ;   RETURN 
     64      IF( wrk_in_use(3,1) ) THEN 
     65         CALL ctl_stop('dyn_key: requested workspace array is unavailable')   ;   RETURN 
    6566      ENDIF 
    6667 
    … …  
    135136         &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    136137      ! 
    137       IF(wrk_not_released(3, 1) )   CALL ctl_stop('dyn_key: failed to release workspace array') 
     138      IF( wrk_not_released(3, 1) )   CALL ctl_stop('dyn_key: failed to release workspace array') 
    138139      ! 
    139140   END SUBROUTINE dyn_keg 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90

    r2633 r2636  
    4141   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    4242   !! $Id$ 
    43    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    44    !!---------------------------------------------------------------------- 
    45  
     43   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
     44   !!---------------------------------------------------------------------- 
    4645CONTAINS 
    4746 
    … …  
    5857      !!---------------------------------------------------------------------- 
    5958 
    60       IF(wrk_in_use(3, 1,2))THEN 
    61          CALL ctl_stop('dyn_ldf: requested workspace arrays unavailable.') 
    62          RETURN 
    63       END IF 
     59      IF( wrk_in_use(3, 1,2) ) THEN 
     60         CALL ctl_stop('dyn_ldf: requested workspace arrays unavailable.')   ;   RETURN 
     61      ENDIF 
    6462      ! 
    6563      IF( l_trddyn )   THEN                      ! temporary save of ta and sa trends 
    … …  
    112110         &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    113111      ! 
    114       IF(wrk_not_released(3, 1,2))THEN 
    115          CALL ctl_stop('dyn_ldf: failed to release workspace arrays.') 
    116       END IF 
     112      IF( wrk_not_released(3, 1,2) )   CALL ctl_stop('dyn_ldf: failed to release workspace arrays.') 
    117113      ! 
    118114   END SUBROUTINE dyn_ldf 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilap.F90

    r2633 r2636  
    2727   PRIVATE 
    2828 
    29    !! * Routine accessibility 
    30    PUBLIC dyn_ldf_bilap  ! called by step.F90 
     29   PUBLIC   dyn_ldf_bilap   ! called by step.F90 
    3130 
    3231   !! * Substitutions 
    … …  
    7574      !!               mixing trend. 
    7675      !!---------------------------------------------------------------------- 
    77       USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    78       USE wrk_nemo, ONLY: zcu => wrk_2d_1, zcv => wrk_2d_2   ! 3D workspace 
    79       USE wrk_nemo, ONLY: zuf => wrk_3d_1, zut => wrk_3d_2   ! 3D workspace 
    80       USE wrk_nemo, ONLY: zlu => wrk_3d_3, zlv => wrk_3d_4 
     76      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
     77      USE wrk_nemo, ONLY:   zcu => wrk_2d_1, zcv => wrk_2d_2   ! 3D workspace 
     78      USE wrk_nemo, ONLY:   zuf => wrk_3d_1, zut => wrk_3d_2   ! 3D workspace 
     79      USE wrk_nemo, ONLY:   zlu => wrk_3d_3, zlv => wrk_3d_4 
    8180      ! 
    8281      INTEGER, INTENT(in) ::   kt   ! ocean time-step index 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilapg.F90

    r2633 r2636  
    2424   USE trdmod_oce      ! ocean variables trends 
    2525   USE ldfslp          ! iso-neutral slopes available 
     26   USE lib_mpp         ! MPP library 
    2627   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    2728   USE prtctl          ! Print control 
    … …  
    4142   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    4243   !! $Id$  
    43    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    44    !!---------------------------------------------------------------------- 
    45  
     44   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
     45   !!---------------------------------------------------------------------- 
    4646CONTAINS 
    4747 
    … …  
    5050      !!               ***  ROUTINE dyn_ldf_bilapg_alloc  *** 
    5151      !!---------------------------------------------------------------------- 
    52       ! 
    5352      ALLOCATE( zfuw(jpi,jpk) , zfvw (jpi,jpk) , zdiu(jpi,jpk) , zdiv (jpi,jpk) ,     & 
    5453         &      zdju(jpi,jpk) , zdj1u(jpi,jpk) , zdjv(jpi,jpk) , zdj1v(jpi,jpk) , STAT=dyn_ldf_bilapg_alloc) 
    5554         ! 
    5655      IF( dyn_ldf_bilapg_alloc /= 0 )   CALL ctl_warn('dyn_ldf_bilapg_alloc: failed to allocate arrays') 
    57       ! 
    5856   END FUNCTION dyn_ldf_bilapg_alloc 
    5957 
    … …  
    9694 
    9795      IF( wrk_in_use(3, 1,2) ) THEN 
    98          CALL ctl_stop('dyn_ldf_bilapg: requested workspace arrays unavailable.')   ;   RETURN 
    99       END IF 
     96         CALL ctl_stop('dyn_ldf_bilapg: requested workspace arrays unavailable')   ;   RETURN 
     97      ENDIF 
    10098 
    10199      IF( kt == nit000 ) THEN 
    … …  
    454452      !                                                ! =============== 
    455453 
    456       IF(wrk_not_released(2, 1,2,3,4,5,6,7,8))THEN 
    457          CALL ctl_stop('dyn:ldfguv : failed to release workspace arrays.') 
    458       END IF 
     454      IF( wrk_not_released(2, 1,2,3,4,5,6,7,8) )   CALL ctl_stop('dyn:ldfguv : failed to release workspace arrays') 
    459455      ! 
    460456   END SUBROUTINE ldfguv 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_iso.F90

    r2633 r2636  
    2727   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    2828   USE in_out_manager  ! I/O manager 
     29   USE lib_mpp         ! MPP library 
    2930   USE prtctl          ! Print control 
    3031 
    … …  
    5354      !!                  ***  ROUTINE dyn_ldf_iso_alloc  *** 
    5455      !!---------------------------------------------------------------------- 
    55       ! 
    5656      ALLOCATE( zfuw(jpi,jpk) , zdiu(jpi,jpk) , zdju(jpi,jpk) , zdj1u(jpi,jpk) ,     &  
    5757         &      zfvw(jpi,jpk) , zdiv(jpi,jpk) , zdjv(jpi,jpk) , zdj1v(jpi,jpk) , STAT=dyn_ldf_iso_alloc) 
    5858         ! 
    5959      IF( dyn_ldf_iso_alloc /= 0 )   CALL ctl_warn('dyn_ldf_iso_alloc: array allocate failed.') 
    60       ! 
    6160   END FUNCTION dyn_ldf_iso_alloc 
    6261 
    … …  
    121120 
    122121      IF( wrk_in_use(2, 1,2,3,4,5,6,7,8) ) THEN 
    123          CALL ctl_stop('dyn_ldf_iso: requested workspace arrays unavailable.')   ;   RETURN 
     122         CALL ctl_stop('dyn_ldf_iso: requested workspace arrays unavailable')   ;   RETURN 
    124123      END IF 
    125124 
    … …  
    429428      !                                                ! =============== 
    430429 
    431       IF( wrk_not_released(2, 1,2,3,4,5,6,7,8))THEN 
    432          CALL ctl_stop('dyn_ldf_iso: failed to release workspace arrays.') 
    433       END IF 
    434  
     430      IF( wrk_not_released(2, 1,2,3,4,5,6,7,8) )   CALL ctl_stop('dyn_ldf_iso: failed to release workspace arrays') 
     431      ! 
    435432   END SUBROUTINE dyn_ldf_iso 
    436433 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90

    r2633 r2636  
    3737   USE in_out_manager  ! I/O manager 
    3838   USE lbclnk          ! lateral boundary condition (or mpp link) 
     39   USE lib_mpp         ! MPP library 
    3940   USE prtctl          ! Print control 
    4041#if defined key_agrif 
    … …  
    110111      !!---------------------------------------------------------------------- 
    111112 
    112       IF(wrk_in_use(2, 1,2,3))THEN 
    113          CALL ctl_stop('dyn_nxt: requested workspace arrays unavailable.') 
    114          RETURN 
    115       END IF 
     113      IF( wrk_in_use(2, 1,2,3) ) THEN 
     114         CALL ctl_stop('dyn_nxt: requested workspace arrays unavailable')   ;   RETURN 
     115      ENDIF 
    116116 
    117117      IF( kt == nit000 ) THEN 
    … …  
    325325         &                       tab3d_2=vn, clinfo2=' Vn: '       , mask2=vmask ) 
    326326      !  
    327       IF(wrk_not_released(2, 1,2,3))THEN 
    328          CALL ctl_stop('dyn_nxt: failed to release workspace arrays.') 
    329       END IF 
     327      IF( wrk_not_released(2, 1,2,3) )   CALL ctl_stop('dyn_nxt: failed to release workspace arrays.') 
    330328      ! 
    331329   END SUBROUTINE dyn_nxt 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg.F90

    r2633 r2636  
    1414   USE oce            ! ocean dynamics and tracers variables 
    1515   USE dom_oce        ! ocean space and time domain variables 
     16   USE phycst         ! physical constants 
    1617   USE obc_oce        ! ocean open boundary conditions 
    1718   USE sbc_oce        ! surface boundary condition: ocean 
    … …  
    2627   USE prtctl         ! Print control                     (prt_ctl routine) 
    2728   USE in_out_manager ! I/O manager 
    28    USE phycst         ! physical constants 
     29   USE lib_mpp        ! MPP library 
    2930 
    3031   IMPLICIT NONE 
    … …  
    4243   !! NEMO/OPA 3.2 , LODYC-IPSL  (2009) 
    4344   !! $Id$  
    44    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    45    !!---------------------------------------------------------------------- 
    46  
     45   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
     46   !!---------------------------------------------------------------------- 
    4747CONTAINS 
    4848 
    … …  
    8383      !!---------------------------------------------------------------------- 
    8484 
    85       IF(wrk_in_use(3, 4,5))THEN 
    86          CALL ctl_stop('dyn_spg: requested workspace arrays unavailable.') 
    87          RETURN 
    88       END IF 
     85      IF( wrk_in_use(3, 4,5) ) THEN 
     86         CALL ctl_stop('dyn_spg: requested workspace arrays unavailable')   ;   RETURN 
     87      ENDIF 
    8988 
    9089!!gm NOTA BENE : the dynspg_exp and dynspg_ts should be modified so that  
    … …  
    154153         &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    155154      ! 
    156       IF(wrk_not_released(3, 4,5))THEN 
    157          CALL ctl_stop('dyn_spg: failed to release workspace arrays.') 
    158       END IF 
     155      IF( wrk_not_released(3, 4,5) )   CALL ctl_stop('dyn_spg: failed to release workspace arrays') 
    159156      ! 
    160157   END SUBROUTINE dyn_spg 
    … …  
    181178 
    182179      !                        ! allocate dyn_spg arrays 
    183       IF( lk_dynspg_ts  .AND. dyn_spg_ts_alloc () /= 0 )   CALL ctl_stop('STOP', 'dyn_spg_init: failed to allocate ts  arrays') 
     180      IF( lk_dynspg_ts .AND.dyn_spg_ts_alloc() /= 0 )   CALL ctl_stop('STOP', 'dyn_spg_init: failed to allocate ts  arrays') 
    184181 
    185182      !                        ! Control of surface pressure gradient scheme options 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r2633 r2636  
    132132      !!---------------------------------------------------------------------- 
    133133 
    134       IF(wrk_in_use(2,  1, 2, 3, 4, 5, 6, 7, 8, 9,10,         & 
    135                           11,12,13,14,15,16,17,18,19,20,21 ) ) THEN 
    136          CALL ctl_stop( 'dyn_spg_ts: requested workspace arrays unavailable.' )   ;   RETURN 
     134      IF( wrk_in_use(2,  1, 2, 3, 4, 5, 6, 7, 8, 9,10,        & 
     135         &              11,12,13,14,15,16,17,18,19,20,21 ) ) THEN 
     136         CALL ctl_stop( 'dyn_spg_ts: requested workspace arrays unavailable' )   ;   RETURN 
    137137      END IF 
    138138 
    … …  
    569569      ! 
    570570      ! 
    571       IF(wrk_not_released(2,  1, 2, 3, 4, 5, 6, 7, 8, 9,10,         & 
    572                               11,12,13,14,15,16,17,18,19,20,21))THEN 
     571      IF( wrk_not_released(2,  1, 2, 3, 4, 5, 6, 7, 8, 9,10,         & 
     572         &                    11,12,13,14,15,16,17,18,19,20,21) )    & 
    573573         CALL ctl_stop('dyn_spg_ts: failed to release workspace arrays.') 
    574       END IF 
    575574      ! 
    576575   END SUBROUTINE dyn_spg_ts 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90

    r2633 r2636  
    3333   USE prtctl         ! Print control 
    3434   USE in_out_manager ! I/O manager 
     35   USE lib_mpp 
    3536 
    3637   IMPLICIT NONE 
    … …  
    218219      !!---------------------------------------------------------------------- 
    219220 
    220       IF(wrk_in_use(2, 1,2,3))THEN 
    221          CALL ctl_stop('dyn:vor_ene: requested workspace arrays unavailable.') 
    222          RETURN 
    223       END IF 
     221      IF( wrk_in_use(2, 1,2,3) ) THEN 
     222         CALL ctl_stop('dyn:vor_ene: requested workspace arrays unavailable')   ;   RETURN 
     223      ENDIF 
    224224 
    225225      IF( kt == nit000 ) THEN 
    … …  
    286286      END DO                                           !   End of slab 
    287287      !                                                ! =============== 
    288       IF(wrk_not_released(2, 1,2,3))THEN 
    289          CALL ctl_stop('dyn:vor_ene: failed to release workspace arrays.') 
    290       END IF 
     288      IF( wrk_not_released(2, 1,2,3) )   CALL ctl_stop('dyn:vor_ene: failed to release workspace arrays.') 
    291289      ! 
    292290   END SUBROUTINE vor_ene 
    … …  
    335333      !!---------------------------------------------------------------------- 
    336334 
    337       IF(wrk_in_use(2, 4,5,6,7))THEN 
    338          CALL ctl_stop('dyn:vor_mix: requested workspace arrays unavailable.') 
    339          RETURN 
    340       END IF 
     335      IF( wrk_in_use(2, 4,5,6,7) ) THEN 
     336         CALL ctl_stop('dyn:vor_mix: requested workspace arrays unavailable')   ;   RETURN 
     337      ENDIF 
    341338 
    342339      IF( kt == nit000 ) THEN 
    … …  
    410407      END DO                                           !   End of slab 
    411408      !                                                ! =============== 
    412       IF(wrk_not_released(2, 4,5,6,7))THEN 
    413          CALL ctl_stop('dyn:vor_mix: failed to release workspace arrays.') 
    414       END IF 
     409      IF( wrk_not_released(2, 4,5,6,7) )   CALL ctl_stop('dyn:vor_mix: failed to release workspace arrays') 
    415410      ! 
    416411   END SUBROUTINE vor_mix 
    … …  
    456451      !!---------------------------------------------------------------------- 
    457452       
    458       IF(wrk_in_use(2, 4,5,6))THEN 
    459          CALL ctl_stop('dyn:vor_ens : requested workspace arrays unavailable.') 
    460          RETURN 
     453      IF( wrk_in_use(2, 4,5,6) ) THEN 
     454         CALL ctl_stop('dyn:vor_ens : requested workspace arrays unavailable')   ;   RETURN 
    461455      END IF 
    462456 
    … …  
    532526      END DO                                           !   End of slab 
    533527      !                                                ! =============== 
    534       IF(wrk_not_released(2, 4,5,6))THEN 
    535          CALL ctl_stop('dyn:vor_ens : failed to release workspace arrays.') 
    536       END IF 
     528      IF( wrk_not_released(2, 4,5,6) )   CALL ctl_stop('dyn:vor_ens : failed to release workspace arrays') 
    537529      ! 
    538530   END SUBROUTINE vor_ens 
    … …  
    580572      !!---------------------------------------------------------------------- 
    581573 
    582       IF(wrk_in_use(2, 1,2,3,4,5,6,7) .OR. wrk_in_use(3, 1) ) THEN 
     574      IF( wrk_in_use(2, 1,2,3,4,5,6,7) .OR. wrk_in_use(3, 1) ) THEN 
    583575         CALL ctl_stop('dyn:vor_een : requested workspace arrays unavailable.')   ;   RETURN 
    584       END IF 
     576      ENDIF 
    585577 
    586578      IF( kt == nit000 ) THEN 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90

    r2633 r2636  
    2020   USE trdmod         ! ocean dynamics trends  
    2121   USE in_out_manager ! I/O manager 
     22   USE lib_mpp         ! MPP library 
    2223   USE prtctl         ! Print control 
    2324 
    … …  
    6667      !!---------------------------------------------------------------------- 
    6768       
    68       IF( wrk_in_use(2, 1)  .OR.    & 
    69           wrk_in_use(3, 1,2) )THEN 
    70          CALL ctl_stop('dyn_zad: requested workspace arrays unavailable.') 
    71          RETURN 
     69      IF( wrk_in_use(2, 1)     .OR.    & 
     70          wrk_in_use(3, 1,2) ) THEN 
     71         CALL ctl_stop('dyn_zad: requested workspace arrays unavailable')   ;   RETURN 
    7272      END IF 
    7373 
    … …  
    126126         &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    127127      ! 
    128       IF( wrk_not_released(2, 1)  .OR.    & 
    129           wrk_not_released(3, 1,2) )THEN 
    130          CALL ctl_stop('dyn_zad: failed to release workspace arrays.') 
    131       END IF 
    132  
     128      IF( wrk_not_released(2, 1)       .OR.    & 
     129          wrk_not_released(3, 1,2) )   CALL ctl_stop('dyn_zad: failed to release workspace arrays') 
     130      ! 
    133131   END SUBROUTINE dyn_zad 
    134132 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf.F90

    r2633 r2636  
    2323   USE trdmod_oce      ! ocean variables trends 
    2424   USE in_out_manager  ! I/O manager 
     25   USE lib_mpp         ! MPP library 
    2526   USE prtctl          ! Print control 
    2627 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_exp.F90

    r2633 r2636  
    1919   USE zdf_oce         ! ocean vertical physics 
    2020   USE sbc_oce         ! surface boundary condition: ocean 
     21   USE lib_mpp         ! MPP library 
    2122   USE in_out_manager  ! I/O manager 
     23   USE lib_mpp         ! MPP library 
    2224 
    2325   IMPLICIT NONE 
    … …  
    6365      !!---------------------------------------------------------------------- 
    6466 
    65       IF( wrk_in_use(3, 1,2) )THEN 
    66          CALL ctl_stop('dyn_zdf_exp : requested workspace arrays unavailable.') 
    67          RETURN 
    68       END IF 
     67      IF( wrk_in_use(3, 1,2) ) THEN 
     68         CALL ctl_stop('dyn_zdf_exp: requested workspace arrays unavailable')   ;   RETURN 
     69      ENDIF 
    6970 
    7071      IF( kt == nit000 .AND. lwp ) THEN 
    … …  
    119120      END DO                           ! End of time splitting 
    120121      ! 
    121       IF( wrk_not_released(3, 1,2) )THEN 
    122          CALL ctl_stop('dyn_zdf_exp : failed to release workspace arrays.') 
    123       END IF 
     122      IF( wrk_not_released(3, 1,2) )   CALL ctl_stop('dyn_zdf_exp : failed to release workspace arrays') 
    124123      ! 
    125124   END SUBROUTINE dyn_zdf_exp 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90

    r2633 r2636  
    2020   USE phycst          ! physical constants 
    2121   USE in_out_manager  ! I/O manager 
     22   USE lib_mpp         ! MPP library 
    2223 
    2324   IMPLICIT NONE 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90

    r2633 r2636  
    2525   USE phycst 
    2626   USE lbclnk          ! ocean lateral boundary condition (or mpp link) 
     27   USE lib_mpp         ! MPP library 
    2728   USE obc_par         ! open boundary cond. parameter 
    2829   USE obc_oce 
    … …  
    8687      !!---------------------------------------------------------------------- 
    8788 
    88       IF(wrk_in_use(2, 1,2))THEN 
    89          CALL ctl_stop('ssh_wzv: requested workspace arrays unavailable.') 
    90          RETURN 
    91       END IF 
     89      IF( wrk_in_use(2, 1,2) ) THEN 
     90         CALL ctl_stop('ssh_wzv: requested workspace arrays unavailable')   ;   RETURN 
     91      ENDIF 
    9292 
    9393      IF( kt == nit000 ) THEN 
    … …  
    244244      IF(ln_ctl)   CALL prt_ctl( tab2d_1=ssha, clinfo1=' ssha  - : ', mask1=tmask, ovlap=1 ) 
    245245      ! 
    246       IF(wrk_not_released(2, 1,2))THEN 
    247          CALL ctl_stop('ssh_wzv: failed to release workspace arrays.') 
    248       END IF 
     246      IF( wrk_not_released(2, 1,2) )   CALL ctl_stop('ssh_wzv: failed to release workspace arrays') 
    249247      ! 
    250248   END SUBROUTINE ssh_wzv 
Note: See TracChangeset for help on using the changeset viewer.