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 2633 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2 – NEMO

Ignore:
Timestamp:
2011-02-28T18:23:23+01:00 (13 years ago)
Author:
trackstand2
Message:

Renamed wrk_use => wrk_in_use and wrk_release => wrk_not_released

Location:
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limadv_2.F90

    r2613 r2633  
    5858      !! Reference:  Prather, 1986, JGR, 91, D6. 6671-6681. 
    5959      !!-------------------------------------------------------------------- 
    60       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     60      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    6161      USE wrk_nemo, ONLY:   zf0  => wrk_2d_11 , zfx   => wrk_2d_12 , zfy    => wrk_2d_13 , zbet => wrk_2d_14   ! 2D workspace 
    6262      USE wrk_nemo, ONLY:   zfm  => wrk_2d_15 , zfxx  => wrk_2d_16 , zfyy   => wrk_2d_17 , zfxy => wrk_2d_18   !  -      - 
    … …  
    7777      !--------------------------------------------------------------------- 
    7878 
    79       IF( .NOT. wrk_use(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
     79      IF( wrk_in_use(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
    8080         CALL ctl_stop( 'lim_adv_x_2 : requested workspace arrays unavailable.' )   ;   RETURN 
    8181      END IF 
    … …  
    224224      ENDIF 
    225225      ! 
    226       IF( .NOT. wrk_release(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
     226      IF( wrk_not_released(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
    227227         CALL ctl_stop( 'lim_adv_x_2 : failed to release workspace arrays.' ) 
    228228      END IF 
    … …  
    245245      !! Reference:  Prather, 1986, JGR, 91, D6. 6671-6681. 
    246246      !!--------------------------------------------------------------------- 
    247       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     247      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    248248      USE wrk_nemo, ONLY:   zf0  => wrk_2d_11 , zfx   => wrk_2d_12 , zfy    => wrk_2d_13 , zbet => wrk_2d_14   ! 2D workspace 
    249249      USE wrk_nemo, ONLY:   zfm  => wrk_2d_15 , zfxx  => wrk_2d_16 , zfyy   => wrk_2d_17 , zfxy => wrk_2d_18   !  -      - 
    … …  
    264264      !--------------------------------------------------------------------- 
    265265 
    266       IF(.NOT. wrk_use(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
     266      IF(wrk_in_use(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
    267267         CALL ctl_stop( 'lim_adv_y_2 : requested workspace arrays unavailable.' )   ;   RETURN 
    268268      END IF 
    … …  
    414414      ENDIF 
    415415      ! 
    416       IF( .NOT. wrk_release(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
     416      IF( wrk_not_released(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
    417417        CALL ctl_stop( 'lim_adv_y_2 : failed to release workspace arrays.' ) 
    418418      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limdyn_2.F90

    r2613 r2633  
    5858      !!              - treatment of the case if no ice dynamic 
    5959      !!--------------------------------------------------------------------- 
    60       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     60      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    6161      USE wrk_nemo, ONLY:   wrk_1d_1, wrk_1d_2 
    6262      USE wrk_nemo, ONLY:   zu_io => wrk_2d_1, zv_io => wrk_2d_2  ! ice-ocean velocity 
    … …  
    7171      !!--------------------------------------------------------------------- 
    7272 
    73       IF(  .NOT. wrk_use(1, 1,2)  .OR.  .NOT. wrk_use(2, 1,2)  ) THEN 
     73      IF(  wrk_in_use(1, 1,2)  .OR.  wrk_in_use(2, 1,2)  ) THEN 
    7474         CALL ctl_stop( 'lim_dyn_2 : requested workspace arrays unavailable.' )   ;   RETURN 
    7575      END IF 
    … …  
    210210      IF(ln_ctl)   CALL prt_ctl(tab2d_1=ust2s , clinfo1=' lim_dyn  : ust2s :') 
    211211      ! 
    212       IF( (.NOT. wrk_release(1, 1,2)) .OR. (.NOT. wrk_release(2, 1,2)) )THEN 
     212      IF( wrk_not_released(1, 1,2) .OR. wrk_not_released(2, 1,2) )THEN 
    213213         CALL ctl_stop('lim_dyn_2 : failed to release workspace arrays.') 
    214214      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limhdf_2.F90

    r2613 r2633  
    5151      !! ** Action  :    update ptab with the diffusive contribution 
    5252      !!------------------------------------------------------------------- 
    53       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     53      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    5454      USE wrk_nemo, ONLY:   zflu => wrk_2d_11, zdiv  => wrk_2d_13, zrlx  => wrk_2d_15  
    5555      USE wrk_nemo, ONLY:   zflv => wrk_2d_12, zdiv0 => wrk_2d_14, ztab0 => wrk_2d_16 
    … …  
    6363      !!------------------------------------------------------------------- 
    6464 
    65       IF( .NOT. wrk_use(2, 11,12,13,14,15,16) ) THEN 
     65      IF( wrk_in_use(2, 11,12,13,14,15,16) ) THEN 
    6666         CALL ctl_stop( 'lim_hdf_2 : requested workspace arrays unavailable.' )   ;   RETURN 
    6767      END IF 
    … …  
    149149      ENDIF 
    150150      ! 
    151       IF( .NOT. wrk_release(2, 11,12,13,14,15,16) ) THEN 
     151      IF( wrk_not_released(2, 11,12,13,14,15,16) ) THEN 
    152152         CALL ctl_stop( 'lim_hdf_2 : failed to release workspace arrays.' )   ;   RETURN 
    153153      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limmsh_2.F90

    r2590 r2633  
    4545      !! ** Refer.  : Deleersnijder et al. Ocean Modelling 100, 7-10  
    4646      !!---------------------------------------------------------------------  
    47       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     47      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    4848      USE wrk_nemo, ONLY: zd2d1 => wrk_2d_1, zd1d2 => wrk_2d_2 
    4949      INTEGER :: ji, jj      ! dummy loop indices 
    … …  
    5656      !!--------------------------------------------------------------------- 
    5757 
    58       IF(.NOT. wrk_use(2, 1,2))THEN 
     58      IF(wrk_in_use(2, 1,2))THEN 
    5959         CALL ctl_stop('lim_msh_2 : requested workspace arrays unavailable.') 
    6060         RETURN 
    … …  
    281281      area(:,:) = e1t(:,:) * e2t(:,:) 
    282282      ! 
    283       IF(.NOT. wrk_release(2, 1,2))THEN 
     283      IF(wrk_not_released(2, 1,2))THEN 
    284284         CALL ctl_stop('lim_msh_2 : failed to release workspace arrays.') 
    285285      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limrhg_2.F90

    r2590 r2633  
    9292      !!              at I-point 
    9393      !!------------------------------------------------------------------- 
    94       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     94      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    9595      USE wrk_nemo, ONLY: zfrld => wrk_2d_1, zmass => wrk_2d_2, zcorl => wrk_2d_3 
    9696      USE wrk_nemo, ONLY: za1ct => wrk_2d_4, za2ct => wrk_2d_5, zresr => wrk_2d_6 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limsbc_2.F90

    r2615 r2633  
    102102      !!              Tartinville et al. 2001 Ocean Modelling, 3, 95-108. 
    103103      !!--------------------------------------------------------------------- 
    104       USE wrk_nemo, ONLY: wrk_release, wrk_use 
     104      USE wrk_nemo, ONLY: wrk_not_released, wrk_in_use 
    105105      USE wrk_nemo, ONLY: zqnsoce => wrk_2d_1 ! 2D workspace 
    106106      USE wrk_nemo, ONLY: wrk_3d_4, wrk_3d_5 
    … …  
    116116      !!--------------------------------------------------------------------- 
    117117      
    118       IF( (.NOT. wrk_use(2, 1)) .OR. (.NOT. wrk_use(3, 4,5)) )THEN 
     118      IF( wrk_in_use(2, 1) .OR. wrk_in_use(3, 4,5) )THEN 
    119119         CALL ctl_stop('lim_sbc_flx_2 : requested workspace arrays unavailable.') 
    120120         RETURN 
    … …  
    253253      ENDIF  
    254254      ! 
    255       IF( (.NOT. wrk_release(2, 1)) .OR. (.NOT. wrk_release(3, 4,5)) )THEN 
     255      IF( wrk_not_released(2, 1) .OR. wrk_not_released(3, 4,5) )THEN 
    256256         CALL ctl_stop('lim_sbc_flx_2 : failed to release workspace arrays.') 
    257257      END IF 
    … …  
    286286      !!              - taum       : modulus of the surface ocean stress (T-point) updated with ice-ocean fluxes 
    287287      !!--------------------------------------------------------------------- 
    288       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     288      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    289289      USE wrk_nemo, ONLY: ztio_u => wrk_2d_1, ztio_v => wrk_2d_2     ! ocean stress below sea-ice 
    290290      INTEGER ,                     INTENT(in) ::   kt               ! ocean time-step index 
    … …  
    297297      !!--------------------------------------------------------------------- 
    298298      ! 
    299       IF(.NOT. wrk_use(2, 1,2))THEN 
     299      IF(wrk_in_use(2, 1,2))THEN 
    300300         CALL ctl_stop('lim_sbc_tau_2 : requested workspace arrays unavailable.')   ;   RETURN 
    301301      END IF 
    … …  
    413413         &                       tab2d_2=vtau, clinfo2=' vtau    : '        , mask2=vmask ) 
    414414      !   
    415       IF(.NOT. wrk_release(2, 1,2) )   CALL ctl_stop('lim_sbc_tau_2 : failed to release workspace arrays.') 
     415      IF(wrk_not_released(2, 1,2) )   CALL ctl_stop('lim_sbc_tau_2 : failed to release workspace arrays.') 
    416416      ! 
    417417   END SUBROUTINE lim_sbc_tau_2 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limthd_2.F90

    r2590 r2633  
    7575      !! References :   Goosse et al. 1996, Bul. Soc. Roy. Sc. Liege, 65, 87-90 
    7676      !!--------------------------------------------------------------------- 
    77       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     77      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    7878      USE wrk_nemo, ONLY: ztmp    => wrk_2d_1, & ! 2D workspace 
    7979                          zqlbsbq => wrk_2d_2, & ! link with lead energy budget qldif 
    … …  
    116116      !!------------------------------------------------------------------- 
    117117 
    118       IF( (.NOT. wrk_use(2, 1,2,3,4,5,6,7,8,9,10)) .OR.  & 
    119           (.NOT. wrk_use(3, 4))   ) THEN 
     118      IF( wrk_in_use(2, 1,2,3,4,5,6,7,8,9,10) .OR.  & 
     119          wrk_in_use(3, 4)   ) THEN 
    120120         CALL ctl_stop('lim_thd_2 : requested workspace arrays unavailable') 
    121121         RETURN 
    … …  
    521521      ENDIF 
    522522       ! 
    523       IF( (.NOT. wrk_release(2, 1,2,3,4,5,6,7,8,9,10)) .OR.  & 
    524           (.NOT. wrk_release(3, 4))   ) THEN 
     523      IF( wrk_not_released(2, 1,2,3,4,5,6,7,8,9,10) .OR.  & 
     524          wrk_not_released(3, 4)   ) THEN 
    525525         CALL ctl_stop('lim_thd_2 : failed to release workspace arrays') 
    526526      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limthd_lac_2.F90

    r2590 r2633  
    6868      !!   2.0  !  02-08 (C. Ethe, G. Madec)  F90, mpp 
    6969      !!------------------------------------------------------------------- 
    70       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     70      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    7171      USE wrk_nemo, ONLY: wrk_1d_1, wrk_1d_2, wrk_1d_3, wrk_1d_4, wrk_1d_5, wrk_1d_6 
    7272      USE in_out_manager, ONLY: ctl_stop 
    … …  
    106106      !!---------------------------------------------------------------------       
    107107                
    108       IF(.NOT. wrk_use(1, 1,2,3,4,5,6))THEN 
     108      IF(wrk_in_use(1, 1,2,3,4,5,6))THEN 
    109109         CALL ctl_stop('lim_thd_lac_2 : requestead workspace arrays unavailable.') 
    110110         RETURN 
    … …  
    235235      END DO 
    236236       
    237       IF(.NOT. wrk_release(1, 1,2,3,4,5,6))THEN 
     237      IF(wrk_not_released(1, 1,2,3,4,5,6))THEN 
    238238         CALL ctl_stop('lim_thd_lac_2 : failed to release workspace arrays.') 
    239239      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limthd_zdf_2.F90

    r2590 r2633  
    6969      !!              Fichefet T. and M. Maqueda 1999, Clim. Dyn, 15(4), 251-268   
    7070      !!------------------------------------------------------------------ 
    71       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     71      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    7272      USE wrk_nemo, ONLY: wrk_1d_1,  wrk_1d_2,  wrk_1d_3,  wrk_1d_4,  wrk_1d_5  
    7373      USE wrk_nemo, ONLY: wrk_1d_6,  wrk_1d_7,  wrk_1d_8,  wrk_1d_9,  wrk_1d_10 
    … …  
    169169       !!---------------------------------------------------------------------- 
    170170 
    171        IF(.NOT. wrk_use(1, 1,  2, 3, 4, 5, 6, 7, 8, 9,10, & 
    172                            11,12,13,14,15,16,17,18,19,20, & 
    173                            21,22,23,24,25,26,27))THEN 
     171       IF(wrk_in_use(1, 1,  2, 3, 4, 5, 6, 7, 8, 9,10, & 
     172                        11,12,13,14,15,16,17,18,19,20, & 
     173                        21,22,23,24,25,26,27))THEN 
    174174          CALL ctl_stop('lim_thd_zdf_2 : requested workspace arrays unavailable.') 
    175175          RETURN 
    … …  
    808808       END DO 
    809809       !  
    810        IF(.NOT. wrk_release(1, 1,  2, 3, 4, 5, 6, 7, 8, 9,10, & 
    811                                11,12,13,14,15,16,17,18,19,20, & 
    812                                21,22,23,24,25,26,27))THEN 
     810       IF(wrk_not_released(1, 1,  2, 3, 4, 5, 6, 7, 8, 9,10, & 
     811                              11,12,13,14,15,16,17,18,19,20, & 
     812                              21,22,23,24,25,26,27))THEN 
    813813          CALL ctl_stop('lim_thd_zdf_2 : failed to release workspace arrays.') 
    814814       END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limtrp_2.F90

    r2590 r2633  
    6363      !! ** action : 
    6464      !!--------------------------------------------------------------------- 
    65       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     65      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    6666      USE wrk_nemo, ONLY: zui_u  => wrk_2d_1, zvi_v => wrk_2d_2, zsm  => wrk_2d_3 
    6767      USE wrk_nemo, ONLY: zs0ice => wrk_2d_4, zs0sn => wrk_2d_5, zs0a => wrk_2d_6 
    … …  
    7979      !--------------------------------------------------------------------- 
    8080 
    81       IF(.NOT. wrk_use(2, 1,2,3,4,5,6,7,8,9,10))THEN 
     81      IF(wrk_in_use(2, 1,2,3,4,5,6,7,8,9,10))THEN 
    8282         CALL ctl_stop('lim_trp_2 : requested workspace arrays unavailable.') 
    8383         RETURN 
    … …  
    274274      ENDIF 
    275275      ! 
    276       IF(.NOT. wrk_release(2, 1,2,3,4,5,6,7,8,9,10))THEN 
     276      IF(wrk_not_released(2, 1,2,3,4,5,6,7,8,9,10))THEN 
    277277         CALL ctl_stop('lim_trp_2 : failed to release workspace arrays.') 
    278278      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90

    r2626 r2633  
    103103      !!      of a day 
    104104      !!------------------------------------------------------------------- 
    105       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     105      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    106106      USE wrk_nemo, ONLY: zfield => wrk_2d_1 
    107107      !! 
    … …  
    115115      !!------------------------------------------------------------------- 
    116116 
    117       IF(.NOT. wrk_use(2, 1))THEN 
     117      IF(wrk_in_use(2, 1))THEN 
    118118         CALL ctl_stop('lim_wri_2 : requested workspace array unavailable.') 
    119119         RETURN 
    … …  
    211211      IF( ( nn_fsbc * niter ) >= nitend )   CALL histclo( nice )  
    212212 
    213       IF(.NOT. wrk_release(2, 1))THEN 
     213      IF(wrk_not_released(2, 1))THEN 
    214214         CALL ctl_stop('lim_wri_2 : failed to release workspace array.') 
    215215      END IF 
Note: See TracChangeset for help on using the changeset viewer.