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_3 – 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_3
Files:
15 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limadv.F90

    r2612 r2633  
    5555      !! Reference:  Prather, 1986, JGR, 91, D6. 6671-6681. 
    5656      !!-------------------------------------------------------------------- 
    57       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     57      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    5858      USE wrk_nemo, ONLY:   zf0  => wrk_2d_11 , zfx   => wrk_2d_12 , zfy    => wrk_2d_13 , zbet => wrk_2d_14   ! 2D workspace 
    5959      USE wrk_nemo, ONLY:   zfm  => wrk_2d_15 , zfxx  => wrk_2d_16 , zfyy   => wrk_2d_17 , zfxy => wrk_2d_18   !  -      - 
    … …  
    7474      !--------------------------------------------------------------------- 
    7575 
    76       IF( .NOT. wrk_use(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
     76      IF( wrk_in_use(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
    7777         CALL ctl_stop( 'lim_adv_x : requested workspace arrays unavailable.' )   ;   RETURN 
    7878      END IF 
    … …  
    223223      ENDIF 
    224224      ! 
    225       IF( .NOT. wrk_release(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
     225      IF( wrk_not_released(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
    226226         CALL ctl_stop( 'lim_adv_x : failed to release workspace arrays.' ) 
    227227      END IF 
    … …  
    244244      !! Reference:  Prather, 1986, JGR, 91, D6. 6671-6681. 
    245245      !!--------------------------------------------------------------------- 
    246       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     246      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    247247      USE wrk_nemo, ONLY:   zf0  => wrk_2d_11 , zfx   => wrk_2d_12 , zfy    => wrk_2d_13 , zbet => wrk_2d_14   ! 2D workspace 
    248248      USE wrk_nemo, ONLY:   zfm  => wrk_2d_15 , zfxx  => wrk_2d_16 , zfyy   => wrk_2d_17 , zfxy => wrk_2d_18   !  -      - 
    … …  
    263263      !--------------------------------------------------------------------- 
    264264 
    265       IF(.NOT. wrk_use(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
     265      IF(wrk_in_use(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
    266266         CALL ctl_stop( 'lim_adv_y : requested workspace arrays unavailable.' )   ;   RETURN 
    267267      END IF 
    … …  
    413413      ENDIF 
    414414      ! 
    415       IF( .NOT. wrk_release(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
     415      IF( wrk_not_released(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
    416416         CALL ctl_stop( 'lim_adv_y : failed to release workspace arrays.' ) 
    417417      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limdyn.F90

    r2612 r2633  
    5555      !!              - treatment of the case if no ice dynamic 
    5656      !!------------------------------------------------------------------------------------ 
    57       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     57      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    5858      USE wrk_nemo, ONLY:   wrk_1d_1, wrk_1d_2 
    5959      USE wrk_nemo, ONLY:   zu_io => wrk_2d_1, zv_io => wrk_2d_2  ! ice-ocean velocity 
    … …  
    6868      !!--------------------------------------------------------------------- 
    6969 
    70       IF(  .NOT. wrk_use(1, 1,2)  .OR.  .NOT. wrk_use(2, 1,2)  ) THEN 
     70      IF(  wrk_in_use(1, 1,2)  .OR.  wrk_in_use(2, 1,2)  ) THEN 
    7171         CALL ctl_stop( 'lim_dyn : requested workspace arrays unavailable.' )   ;   RETURN 
    7272      END IF 
    … …  
    212212      ENDIF 
    213213      ! 
    214       IF(  .NOT. wrk_release(1, 1,2)  .OR.  .NOT. wrk_release(2, 1,2)  ) THEN 
     214      IF(  wrk_not_released(1, 1,2)  .OR.  wrk_not_released(2, 1,2)  ) THEN 
    215215         CALL ctl_stop( 'lim_dyn : failed to release workspace arrays.' ) 
    216216      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limhdf.F90

    r2612 r2633  
    5050      !! ** Action  :    update ptab with the diffusive contribution 
    5151      !!------------------------------------------------------------------- 
    52       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     52      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    5353      USE wrk_nemo, ONLY:   zflu => wrk_2d_11, zdiv  => wrk_2d_13, zrlx  => wrk_2d_15  
    5454      USE wrk_nemo, ONLY:   zflv => wrk_2d_12, zdiv0 => wrk_2d_14, ztab0 => wrk_2d_16 
    … …  
    6262      !!------------------------------------------------------------------- 
    6363       
    64       IF( .NOT. wrk_use(2, 11,12,13,14,15,16) ) THEN 
     64      IF( wrk_in_use(2, 11,12,13,14,15,16) ) THEN 
    6565         CALL ctl_stop( 'lim_hdf: ERROR: requested workspace arrays unavailable' )   ;   RETURN 
    6666      END IF 
    … …  
    146146      ENDIF 
    147147      ! 
    148       IF( .NOT. wrk_release(2, 11,12,13,14,15,16) ) THEN 
     148      IF( wrk_not_released(2, 11,12,13,14,15,16) ) THEN 
    149149         CALL ctl_stop( 'lim_hdf : failed to release workspace arrays.' )   ;   RETURN 
    150150      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

    r2612 r2633  
    6161      !!                or from arbitrary sea-ice conditions 
    6262      !!------------------------------------------------------------------- 
    63       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     63      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    6464      USE wrk_nemo, ONLY:   wrk_1d_1, wrk_1d_2, wrk_1d_3, wrk_1d_4 
    6565      USE wrk_nemo, ONLY:   zidto => wrk_2d_1   ! ice indicator 
    … …  
    7272      !-------------------------------------------------------------------- 
    7373 
    74       IF(  .NOT. wrk_use(1, 1,2)  ) THEN 
     74      IF(  wrk_in_use(1, 1,2)  ) THEN 
    7575         CALL ctl_stop( 'lim_istate : requested workspace arrays unavailable.' )   ;   RETURN 
    7676      END IF 
    … …  
    516516      CALL lbc_lnk( fsbbq  , 'T', 1. ) 
    517517      ! 
    518       IF(  .NOT. wrk_release(1, 1,2)  ) THEN 
     518      IF(  wrk_not_released(1, 1,2)  ) THEN 
    519519         CALL ctl_stop( 'lim_istate : failed to release workspace arrays.' ) 
    520520      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90

    r2612 r2633  
    148148      !!----------------------------------------------------------------------------- 
    149149 
    150       IF( .NOT. wrk_use(2, 1,2,3,4,5,6,7,8) ) THEN 
     150      IF( wrk_in_use(2, 1,2,3,4,5,6,7,8) ) THEN 
    151151         CALL ctl_stop(' : requested workspace arrays unavailable.')   ;   RETURN 
    152152      END IF 
    … …  
    494494      END DO 
    495495 
    496       IF( .NOT. wrk_release(2, 1,2,3,4,5,6,7,8) )   CALL ctl_stop( 'lim_itd_me : failed to release workspace arrays.' ) 
     496      IF( wrk_not_released(2, 1,2,3,4,5,6,7,8) )   CALL ctl_stop( 'lim_itd_me : failed to release workspace arrays.' ) 
    497497      ! 
    498498   END SUBROUTINE lim_itd_me 
    … …  
    524524      !!---------------------------------------------------------------------- 
    525525 
    526       IF( .NOT. wrk_use(2, 1) ) THEN 
     526      IF( wrk_in_use(2, 1) ) THEN 
    527527         CALL ctl_stop('lim_itd_me_icestrength : requested workspace array unavailable.')   ;   RETURN 
    528528      END IF 
    … …  
    681681      CALL lbc_lnk( strength, 'T', 1. ) 
    682682 
    683       IF(.NOT. wrk_release(2, 1))THEN 
     683      IF(wrk_not_released(2, 1))THEN 
    684684         CALL ctl_stop('lim_itd_me_icestrength : failed to release workspace array.') 
    685685      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90

    r2612 r2633  
    9191      !! ** purpose  :   output of sea-ice variable in a netcdf file 
    9292      !!---------------------------------------------------------------------- 
    93       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     93      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    9494      USE wrk_nemo, ONLY:   z2d  => wrk_2d_1   ! 2D workspace 
    9595      ! 
    … …  
    102102      !!---------------------------------------------------------------------- 
    103103 
    104       IF( .NOT. wrk_use(2, 1) ) THEN 
     104      IF( wrk_in_use(2, 1) ) THEN 
    105105         CALL ctl_stop( 'lim_rst_write : requested workspace arrays unavailable.' )   ;   RETURN 
    106106      END IF 
    … …  
    294294      ENDIF 
    295295      ! 
    296       IF( .NOT. wrk_release(2, 1) ) THEN 
     296      IF( wrk_not_released(2, 1) ) THEN 
    297297         CALL ctl_stop( 'lim_rst_write : failed to release workspace arrays.' ) 
    298298      END IF 
    … …  
    307307      !! ** purpose  :   read of sea-ice variable restart in a netcdf file 
    308308      !!---------------------------------------------------------------------- 
    309       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     309      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    310310      USE wrk_nemo, ONLY:   z2d  => wrk_2d_1   ! 2D workspace 
    311311      ! 
    … …  
    320320      !!---------------------------------------------------------------------- 
    321321 
    322       IF( .NOT. wrk_use(2, 1) ) THEN 
     322      IF( wrk_in_use(2, 1) ) THEN 
    323323         CALL ctl_stop( 'lim_rst_read : requested workspace arrays unavailable.' )   ;   RETURN 
    324324      END IF 
    … …  
    571571      CALL iom_close( numrir ) 
    572572      ! 
    573       IF( .NOT. wrk_release(2, 1) ) THEN 
     573      IF( wrk_not_released(2, 1) ) THEN 
    574574         CALL ctl_stop( 'lim_rst_read : failed to release workspace arrays.' ) 
    575575      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

    r2612 r2633  
    9696      !!              Tartinville et al. 2001 Ocean Modelling, 3, 95-108. 
    9797      !!--------------------------------------------------------------------- 
    98       USE wrk_nemo, ONLY:   wrk_release, wrk_use 
     98      USE wrk_nemo, ONLY:   wrk_not_released, wrk_in_use 
    9999      USE wrk_nemo, ONLY:   zfcm1 => wrk_2d_1 , zfcm2 => wrk_2d_2   ! 2D workspace 
    100100      USE wrk_nemo, ONLY:   wrk_3d_4, wrk_3d_5                      ! 3D workspace 
    … …  
    111111      !!--------------------------------------------------------------------- 
    112112 
    113       IF( .NOT.wrk_use(2, 1,2) .OR. .NOT.wrk_use(3, 4,5) ) THEN 
     113      IF( wrk_in_use(2, 1,2) .OR. wrk_in_use(3, 4,5) ) THEN 
    114114         CALL ctl_stop( 'lim_sbc_flx : requested workspace arrays unavailable.' )   ;   RETURN 
    115115      ENDIF 
    … …  
    300300      ENDIF 
    301301      ! 
    302       IF(  .NOT. wrk_release(2, 1,2)  .OR.  .NOT. wrk_release(3, 4,5)  ) THEN 
     302      IF(  wrk_not_released(2, 1,2)  .OR.  wrk_not_released(3, 4,5)  ) THEN 
    303303         CALL ctl_stop( 'lim_sbc_flx : failed to release workspace arrays.' ) 
    304304      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

    r2626 r2633  
    8181      !! ** References : H. Goosse et al. 1996, Bul. Soc. Roy. Sc. Liege, 65, 87-90 
    8282      !!--------------------------------------------------------------------- 
    83       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     83      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    8484      USE wrk_nemo, ONLY:   zqlbsbq => wrk_2d_1   ! 2D workspace 
    8585      ! 
    … …  
    9494      !!------------------------------------------------------------------- 
    9595 
    96       IF( .NOT. wrk_use(2, 1) ) THEN 
     96      IF( wrk_in_use(2, 1) ) THEN 
    9797         CALL ctl_stop( 'lim_thd : requested workspace arrays unavailable' )   ;   RETURN 
    9898      ENDIF 
    … …  
    458458      ENDIF 
    459459      ! 
    460       IF( .NOT. wrk_release(2, 1) )   CALL ctl_stop( 'lim_thd : failed to release workspace arrays' ) 
     460      IF( wrk_not_released(2, 1) )   CALL ctl_stop( 'lim_thd : failed to release workspace arrays' ) 
    461461      ! 
    462462   END SUBROUTINE lim_thd 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limthd_dh.F90

    r2612 r2633  
    102102      !!------------------------------------------------------------------ 
    103103 
    104       IF( .NOT. wrk_use(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22) ) THEN 
     104      IF( wrk_in_use(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22) ) THEN 
    105105         CALL ctl_stop('lim_thd_dh : requestead workspace arrays unavailable.')   ;   RETURN 
    106106      END IF 
    … …  
    699699      END DO !ji 
    700700      ! 
    701       IF( .NOT. wrk_release(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21) )   & 
     701      IF( wrk_not_released(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21) )   & 
    702702         &     CALL ctl_stop('lim_thd_dh : failed to release workspace arrays.') 
    703703      ! 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limthd_ent.F90

    r2612 r2633  
    121121      !!------------------------------------------------------------------- 
    122122 
    123       IF( .NOT. wrk_use(1, 1,2,3,4,5,6,7,8) ) THEN 
     123      IF( wrk_in_use(1, 1,2,3,4,5,6,7,8) ) THEN 
    124124         CALL ctl_stop('lim_thd_dh : requestead workspace arrays unavailable.')   ;   RETURN 
    125125      END IF 
    … …  
    687687      END DO !jk 
    688688      ! 
    689       IF( .NOT. wrk_release(1, 1,2,3,4,5,6,7,8) )   CALL ctl_stop( 'lim_thd_ent : failed to release workspace arrays.' ) 
     689      IF( wrk_not_released(1, 1,2,3,4,5,6,7,8) )   CALL ctl_stop( 'lim_thd_ent : failed to release workspace arrays.' ) 
    690690      ! 
    691691   END SUBROUTINE lim_thd_ent 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90

    r2612 r2633  
    110110      !!-----------------------------------------------------------------------! 
    111111 
    112       IF(  .NOT. wrk_use(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .AND.   & 
    113          & .NOT. wrk_use(2, 1,2,3,4,5,6,7,8)                        ) THEN 
     112      IF(  wrk_in_use(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .OR.   & 
     113         & wrk_in_use(2, 1,2,3,4,5,6,7,8)                        ) THEN 
    114114         CALL ctl_stop('lim_thd_dh : requestead workspace arrays unavailable.')   ;   RETURN 
    115115      END IF 
    … …  
    689689      ENDIF 
    690690      ! 
    691       IF( .NOT. wrk_release(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .AND.     & 
    692          &.NOT. wrk_release(2, 1,2,3,4,5,6,7,8)                        )   & 
     691      IF( wrk_not_released(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .OR.     & 
     692         &wrk_not_released(2, 1,2,3,4,5,6,7,8)                       )   & 
    693693         &      CALL ctl_stop( 'lim_thd_lac : failed to release workspace arrays.' ) 
    694694      ! 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90

    r2612 r2633  
    5959      !!--------------------------------------------------------------------- 
    6060 
    61       IF(  .NOT. wrk_use(1, 1,2,3)  ) THEN 
     61      IF(  wrk_in_use(1, 1,2,3)  ) THEN 
    6262         CALL ctl_stop('lim_thd_dh : requestead workspace arrays unavailable.')   ;   RETURN 
    6363      END IF 
    … …  
    237237      ENDIF 
    238238      ! 
    239       IF( .NOT. wrk_release(1, 1,2,3) )   CALL ctl_stop( 'lim_thd_lac : failed to release workspace arrays.' ) 
     239      IF( wrk_not_released(1, 1,2,3) )   CALL ctl_stop( 'lim_thd_lac : failed to release workspace arrays.' ) 
    240240      ! 
    241241   END SUBROUTINE lim_thd_sal 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90

    r2612 r2633  
    6262      !! ** action : 
    6363      !!--------------------------------------------------------------------- 
    64       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     64      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    6565      USE wrk_nemo, ONLY:   zs0at => wrk_2d_1 , zsm => wrk_2d_2 , zs0ow  => wrk_2d_3      ! 2D workspace 
    6666      USE wrk_nemo, ONLY:   wrk_3d_1, wrk_3d_2, wrk_3d_3, wrk_3d_4, wrk_3d_5, wrk_3d_6    ! 3D workspace 
    … …  
    8080      !!--------------------------------------------------------------------- 
    8181 
    82       IF( .NOT.wrk_use( 2, 1,2,3,4,5 ) ) THEN 
     82      IF( wrk_in_use( 2, 1,2,3,4,5 ) ) THEN 
    8383         CALL ctl_stop( 'lim_trp : requested workspace arrays unavailable.' )   ;   RETURN 
    8484      END IF 
    … …  
    463463      ENDIF 
    464464      ! 
    465       IF( .NOT.wrk_release( 2, 1,2,3,4,5 ) )   CALL ctl_stop('lim_trp_2 : failed to release workspace arrays.') 
     465      IF( wrk_not_released( 2, 1,2,3,4,5 ) )   CALL ctl_stop('lim_trp_2 : failed to release workspace arrays.') 
    466466      ! 
    467467   END SUBROUTINE lim_trp 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90

    r2612 r2633  
    304304      !!------------------------------------------------------------------ 
    305305 
    306       IF( .NOT.wrk_use( 2, 1,2 ) ) THEN 
     306      IF( wrk_in_use( 2, 1,2 ) ) THEN 
    307307         CALL ctl_stop( 'lim_var_salprof : requested workspace arrays unavailable.' )   ;   RETURN 
    308308      END IF 
    … …  
    388388      ENDIF ! num_sal 
    389389      ! 
    390       IF( .NOT.wrk_release( 2, 1,2 ) )   CALL ctl_stop('lim_var_salprof : failed to release workspace arrays.') 
     390      IF( wrk_not_released( 2, 1,2 ) )   CALL ctl_stop('lim_var_salprof : failed to release workspace arrays.') 
    391391      ! 
    392392   END SUBROUTINE lim_var_salprof 
    … …  
    441441      !!--------------------------------------------------------------------- 
    442442 
    443       IF(  .NOT. wrk_use(1, 1)  ) THEN 
     443      IF(  wrk_in_use(1, 1)  ) THEN 
    444444         CALL ctl_stop('lim_var_salprof1d : requestead workspace arrays unavailable.')   ;   RETURN 
    445445      END IF 
    … …  
    510510      ENDIF 
    511511      ! 
    512       IF( .NOT. wrk_release(1, 1) )   CALL ctl_stop( 'lim_var_salprof1d : failed to release workspace arrays.' ) 
     512      IF( wrk_not_released(1, 1) )   CALL ctl_stop( 'lim_var_salprof1d : failed to release workspace arrays.' ) 
    513513      ! 
    514514   END SUBROUTINE lim_var_salprof1d 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90

    r2612 r2633  
    7070      !!  modif : 03/06/98 
    7171      !!------------------------------------------------------------------- 
    72       USE wrk_nemo, ONLY: wrk_release, wrk_use 
     72      USE wrk_nemo, ONLY: wrk_not_released, wrk_in_use 
    7373      USE wrk_nemo, ONLY: zfield => wrk_2d_1             ! 2D workspace 
    7474      USE wrk_nemo, ONLY: wrk_3d_1, wrk_3D_2, wrk_3d_3   ! 3D workspace 
Note: See TracChangeset for help on using the changeset viewer.