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/OPA_SRC/SBC – 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/OPA_SRC/SBC
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90

    r2620 r2633  
    6464      !! References :   Shine and Hendersson-Sellers 1985, JGR, 90(D1), 2243-2250. 
    6565      !!---------------------------------------------------------------------- 
    66       USE wrk_nemo, ONLY: wrk_use, wrk_release, llwrk_use, llwrk_release 
     66      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released, llwrk_in_use, llwrk_not_released 
    6767      USE wrk_nemo, ONLY: wrk_3d_6, wrk_3d_7    ! 3D workspace 
    6868      !! 
    … …  
    9090      ijpl = SIZE( pt_ice, 3 )                     ! number of ice categories 
    9191 
    92       IF( (.not. llwrk_use(3,1)) .OR. (.not. wrk_use(3, 6,7)) ) THEN 
     92      IF( llwrk_in_use(3,1) .OR. wrk_in_use(3, 6,7) ) THEN 
    9393         CALL ctl_stop('albedo_ice: requested workspace arrays are unavailable')   ;   RETURN 
    9494      ENDIF 
    … …  
    172172      pa_ice_os(:,:,:) = pa_ice_cs(:,:,:) + rn_cloud       ! Oberhuber correction 
    173173      ! 
    174       IF( .not. wrk_release(3, 6,7) )   CALL ctl_stop('albedo_ice: failed to release workspace arrays') 
     174      IF( wrk_not_released(3, 6,7) )   CALL ctl_stop('albedo_ice: failed to release workspace arrays') 
    175175      ! 
    176176   END SUBROUTINE albedo_ice 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis4.F90

    r2620 r2633  
    110110      !! ** Method  :   OASIS4 MPI communication  
    111111      !!-------------------------------------------------------------------- 
    112       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     112      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    113113      USE wrk_nemo, ONLY: zclo => wrk_3d_1, zcla => wrk_3d_2 
    114114      USE wrk_nemo, ONLY: zlon => wrk_2d_1, zlat => wrk_2d_2 
    … …  
    146146      !!-------------------------------------------------------------------- 
    147147 
    148       IF( .NOT. wrk_use(3, 1,2) .OR. .NOT. wrk_use(2, 1,2) )THEN 
     148      IF( wrk_in_use(3, 1,2) .OR. wrk_in_use(2, 1,2) )THEN 
    149149         CALL ctl_stop('cpl_prism_define: ERROR: requested workspace arrays are unavailable.')   ;   RETURN 
    150150      ENDIF 
    … …  
    321321      IF ( nerror /= PRISM_Success )   CALL prism_abort ( ncomp_id, 'cpl_prism_define', 'Failure in prism_enddef') 
    322322       
    323       IF( .not. wrk_release(3, 1,2) .OR.   & 
    324           .not. wrk_release(2, 1,2)   )   CALL ctl_stop('cpl_prism_define: failed to release workspace arrays') 
     323      IF( wrk_not_released(3, 1,2) .OR.   & 
     324          wrk_not_released(2, 1,2)   )   CALL ctl_stop('cpl_prism_define: failed to release workspace arrays') 
    325325      ! 
    326326   END SUBROUTINE cpl_prism_define 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

    r2620 r2633  
    587587      !! ** Purpose :   Vector fields may need to be rotated onto the local grid direction 
    588588      !!---------------------------------------------------------------------- 
    589       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     589      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    590590      USE wrk_nemo, ONLY: utmp => wrk_2d_4, vtmp => wrk_2d_5      ! 2D workspace 
    591591      !! 
    … …  
    600600      !!--------------------------------------------------------------------- 
    601601 
    602       IF(.not. wrk_use(2, 4,5) ) THEN 
     602      IF(wrk_in_use(2, 4,5) ) THEN 
    603603         CALL ctl_stop('fld_rot: ERROR: requested workspace arrays are unavailable.')   ;   RETURN 
    604604      END IF 
    … …  
    637637       END DO 
    638638      ! 
    639       IF(.not. wrk_release(2, 4,5) )    CALL ctl_stop('fld_rot: ERROR: failed to release workspace arrays.') 
     639      IF(wrk_not_released(2, 4,5) )    CALL ctl_stop('fld_rot: ERROR: failed to release workspace arrays.') 
    640640      ! 
    641641   END SUBROUTINE fld_rot 
    … …  
    804804      !!                file, restructuring as required 
    805805      !!---------------------------------------------------------------------- 
    806       USE wrk_nemo, ONLY: wrk_use, wrk_release, iwrk_use, iwrk_release 
     806      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released, iwrk_in_use, iwrk_not_released 
    807807      USE wrk_nemo, ONLY: data_tmp => wrk_2d_1 
    808808      USE wrk_nemo, ONLY: data_src => iwrk_2d_1 
    … …  
    820820      !!---------------------------------------------------------------------- 
    821821      ! 
    822       IF(  .NOT. wrk_use(2, 1)  .OR.  .NOT. iwrk_use(2,1) ) THEN 
     822      IF(  wrk_in_use(2, 1)  .OR.  iwrk_in_use(2,1) ) THEN 
    823823         CALL ctl_stop('fld_weights: requested workspace arrays are unavailable.')   ;   RETURN 
    824824      END IF 
    … …  
    934934      ENDIF 
    935935 
    936       IF( .NOT. wrk_release(2, 1) .OR.    & 
    937           .NOT.iwrk_release(2, 1)   )   CALL ctl_stop('fld_weights: failed to release workspace arrays') 
     936      IF( wrk_not_released(2, 1) .OR.    & 
     937          iwrk_not_released(2, 1)   )   CALL ctl_stop('fld_weights: failed to release workspace arrays') 
    938938      ! 
    939939   END SUBROUTINE fld_weight 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

    r2620 r2633  
    210210      !!  ** Nota    :   sf has to be a dummy argument for AGRIF on NEC 
    211211      !!---------------------------------------------------------------------- 
    212       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     212      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    213213      USE wrk_nemo, ONLY: zqlw => wrk_2d_1  ! long-wave heat flux over ocean 
    214214      USE wrk_nemo, ONLY: zqla => wrk_2d_2  ! latent heat flux over ocean 
    … …  
    232232      !!--------------------------------------------------------------------- 
    233233 
    234       IF(.not. wrk_use(3, 1,2,3))THEN 
     234      IF(wrk_in_use(3, 1,2,3))THEN 
    235235         CALL ctl_stop('blk_oce_clio: requested workspace arrays are unavailable.') 
    236236         RETURN 
    … …  
    386386      ENDIF 
    387387 
    388       IF(.not. wrk_release(3, 1,2,3))THEN 
     388      IF(wrk_not_released(3, 1,2,3))THEN 
    389389         CALL ctl_stop('blk_oce_clio: failed to release workspace arrays.') 
    390390      END IF 
    … …  
    420420      !! 
    421421      !!---------------------------------------------------------------------- 
    422       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     422      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    423423      USE wrk_nemo, ONLY:  ztatm => wrk_2d_1   ! Tair in Kelvin 
    424424      USE wrk_nemo, ONLY:  zqatm => wrk_2d_2   ! specific humidity 
    … …  
    457457      !!--------------------------------------------------------------------- 
    458458 
    459       IF( (.NOT. wrk_use(2, 1,2,3,4)) .OR. (.NOT. wrk_use(3, 1,2)) )THEN 
     459      IF( (wrk_in_use(2, 1,2,3,4)) .OR. (wrk_in_use(3, 1,2)) )THEN 
    460460         CALL ctl_stop('blk_ice_clio: requested workspace arrays are unavailable.') 
    461461         RETURN 
    … …  
    637637      ENDIF 
    638638 
    639       IF( (.NOT. wrk_release(2, 1,2,3,4)) .OR. (.NOT. wrk_release(3, 1,2)) )THEN 
     639      IF( (wrk_not_released(2, 1,2,3,4)) .OR. (wrk_not_released(3, 1,2)) )THEN 
    640640         CALL ctl_stop('blk_ice_clio: failed to release workspace arrays.') 
    641641      END IF 
    … …  
    654654      !!               - also initialise sbudyko and stauc once for all  
    655655      !!---------------------------------------------------------------------- 
    656       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     656      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    657657      USE wrk_nemo, ONLY:   zev => wrk_2d_1                  ! vapour pressure 
    658658      USE wrk_nemo, ONLY: zdlha => wrk_2d_2, zlsrise => wrk_2d_3, zlsset => wrk_2d_4  
    … …  
    679679      !!--------------------------------------------------------------------- 
    680680 
    681       IF(.NOT. wrk_use(2, 1,2,3,4,5,6))THEN 
     681      IF(wrk_in_use(2, 1,2,3,4,5,6))THEN 
    682682         CALL ctl_stop('blk_clio_qsr_oce: requested workspace arrays unavailable.') 
    683683         RETURN 
    … …  
    796796      END DO 
    797797 
    798       IF(.NOT. wrk_release(2, 1,2,3,4,5,6))THEN 
     798      IF(wrk_not_released(2, 1,2,3,4,5,6))THEN 
    799799         CALL ctl_stop('blk_clio_qsr_oce: failed to release workspace arrays.') 
    800800      END IF 
    … …  
    813813      !!               - also initialise sbudyko and stauc once for all  
    814814      !!---------------------------------------------------------------------- 
    815       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     815      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    816816      USE wrk_nemo, ONLY: zev => wrk_2d_1         ! vapour pressure 
    817817      USE wrk_nemo, ONLY: zdlha => wrk_2d_2       ! 2D workspace 
    … …  
    839839      !!--------------------------------------------------------------------- 
    840840 
    841       IF(.NOT. wrk_use(2, 1,2,3,4,5,6))THEN 
     841      IF(wrk_in_use(2, 1,2,3,4,5,6))THEN 
    842842         CALL ctl_stop('blk_clio_qsr_ice: requested workspace arrays unavailable.') 
    843843         RETURN 
    … …  
    945945      END DO 
    946946      ! 
    947       IF(.NOT. wrk_release(2, 1,2,3,4,5,6))THEN 
     947      IF(wrk_not_released(2, 1,2,3,4,5,6))THEN 
    948948         CALL ctl_stop('blk_clio_qsr_ice: failed to release workspace arrays.') 
    949949      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

    r2620 r2633  
    208208      !!  ** Nota  :   sf has to be a dummy argument for AGRIF on NEC 
    209209      !!--------------------------------------------------------------------- 
    210       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     210      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    211211      USE wrk_nemo, ONLY: zwnd_i => wrk_2d_1, zwnd_j  => wrk_2d_2   ! wind speed components at T-point 
    212212      USE wrk_nemo, ONLY: zqsatw => wrk_2d_3           ! specific humidity at pst 
    … …  
    230230      !!--------------------------------------------------------------------- 
    231231 
    232       IF(.NOT. wrk_use(2, 1,2,3,4,5,6,7,8,9,10,11,12,13))THEN 
     232      IF(wrk_in_use(2, 1,2,3,4,5,6,7,8,9,10,11,12,13))THEN 
    233233         CALL ctl_stop('blk_oce_core: requested workspace arrays unavailable.') 
    234234         RETURN 
    … …  
    383383      ENDIF 
    384384      ! 
    385       IF(.NOT. wrk_release(2, 1,2,3,4,5,6,7,8,9,10,11,12,13))THEN 
     385      IF(wrk_not_released(2, 1,2,3,4,5,6,7,8,9,10,11,12,13))THEN 
    386386         CALL ctl_stop('blk_oce_core: failed to release workspace arrays.') 
    387387      END IF 
    … …  
    407407      !! caution : the net upward water flux has with mm/day unit 
    408408      !!--------------------------------------------------------------------- 
    409       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     409      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    410410      USE wrk_nemo, ONLY: z_wnds_t => wrk_2d_1                ! wind speed ( = | U10m - U_ice | ) at T-point 
    411411      USE wrk_nemo, ONLY: wrk_3d_4, wrk_3d_5, wrk_3d_6, wrk_3d_7 
    … …  
    447447 
    448448      ! Set-up access to workspace arrays 
    449       IF( (.NOT. wrk_use(2, 1)) .OR. (.NOT. wrk_use(3, 4,5,6,7)) )THEN 
     449      IF( wrk_in_use(2, 1) .OR. wrk_in_use(3, 4,5,6,7) )THEN 
    450450         CALL ctl_stop('blk_ice_core: requested workspace arrays unavailable.') 
    451451         RETURN 
    … …  
    608608      ENDIF 
    609609 
    610       IF( (.NOT. wrk_release(2, 1)) .OR. (.NOT. wrk_release(3, 4,5,6,7)) )THEN 
     610      IF( wrk_not_released(2, 1) .OR. wrk_not_released(3, 4,5,6,7) )THEN 
    611611         CALL ctl_stop('blk_ice_core: failed to release workspace arrays.') 
    612612      END IF 
    … …  
    635635      !!   9.0  !  05-08  (L. Brodeau) Rewriting and optimization 
    636636      !!---------------------------------------------------------------------- 
    637       USE wrk_nemo, ONLY: wrk_use, wrk_release, iwrk_use, iwrk_release 
     637      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released, iwrk_in_use, iwrk_not_released 
    638638      USE wrk_nemo, ONLY: dU10 => wrk_2d_14        ! dU                             [m/s] 
    639639      USE wrk_nemo, ONLY: dT => wrk_2d_15          ! air/sea temperature difference   [K] 
    … …  
    675675      !!---------------------------------------------------------------------- 
    676676 
    677       IF( (.NOT. wrk_use(2, 14,15,16,17,18,       & 
    678                          19,20,21,22,23,24,       & 
    679                          25,26,27,28,29,30,       & 
    680                          31,32))             .OR. & 
    681           (.NOT. iwrk_use(2, 1)) )THEN 
     677      IF( wrk_in_use(2, 14,15,16,17,18,         & 
     678                        19,20,21,22,23,24,      & 
     679                        25,26,27,28,29,30,      & 
     680                        31,32)             .OR. & 
     681          iwrk_in_use(2, 1) )THEN 
    682682         CALL ctl_stop('TURB_CORE_1Z: requested workspace arrays unavailable.') 
    683683         RETURN 
    … …  
    743743      END DO 
    744744      !! 
    745       IF( (.NOT. wrk_release(2, 14,15,16,17,18,       & 
    746                              19,20,21,22,23,24,       & 
    747                              25,26,27,28,29,30,       & 
    748                              31,32))             .OR. & 
    749           (.NOT. iwrk_release(2, 1)) )THEN 
     745      IF( wrk_not_released(2, 14,15,16,17,18,          & 
     746                              19,20,21,22,23,24,       & 
     747                              25,26,27,28,29,30,       & 
     748                              31,32)              .OR. & 
     749          iwrk_not_released(2, 1) )THEN 
    750750         CALL ctl_stop('TURB_CORE_1Z: failed to release workspace arrays.') 
    751751      END IF 
    … …  
    772772      !!   9.0  !  06-12  (L. Brodeau) Original code for 2Z 
    773773      !!---------------------------------------------------------------------- 
    774       USE wrk_nemo, ONLY: wrk_use, wrk_release, iwrk_use, iwrk_release 
     774      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released, iwrk_in_use, iwrk_not_released 
    775775      USE wrk_nemo, ONLY: dU10 => wrk_2d_1        ! dU                             [m/s] 
    776776      USE wrk_nemo, ONLY: dT => wrk_2d_2          ! air/sea temperature difference   [K] 
    … …  
    816816      !!  * Start 
    817817 
    818       IF( (.NOT. wrk_use(2, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21)) .OR. & 
    819           (.NOT. iwrk_use(2, 1)) )THEN 
     818      IF( wrk_in_use(2, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21) .OR. & 
     819          iwrk_in_use(2, 1) )THEN 
    820820         CALL ctl_stop('TURB_CORE_2Z: requested workspace arrays unavailable.') 
    821821         RETURN 
    … …  
    895895      END DO 
    896896      !! 
    897       IF( (.NOT. wrk_release(2, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21)) .OR. & 
    898           (.NOT. iwrk_release(2, 1)) )THEN 
     897      IF( wrk_not_released(2, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21) .OR. & 
     898          iwrk_not_released(2, 1) )THEN 
    899899         CALL ctl_stop('TURB_CORE_2Z: requested workspace arrays unavailable.') 
    900900      END IF 
    … …  
    905905    FUNCTION psi_m(zta)   !! Psis, L & Y eq. (8c), (8d), (8e) 
    906906      !------------------------------------------------------------------------------- 
    907       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     907      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    908908      USE wrk_nemo, ONLY:     X2 => wrk_2d_33 
    909909      USE wrk_nemo, ONLY:     X  => wrk_2d_34 
    … …  
    916916      !------------------------------------------------------------------------------- 
    917917 
    918       IF(.NOT. wrk_use(2, 33,34,35))THEN 
     918      IF(wrk_in_use(2, 33,34,35))THEN 
    919919         CALL ctl_stop('psi_m: requested workspace arrays unavailable.') 
    920920         RETURN 
    … …  
    926926           & + (1. - stabit)*(2*log((1. + X)/2) + log((1. + X2)/2) - 2*atan(X) + pi/2)  ! Unstable  
    927927 
    928       IF(.NOT. wrk_release(2, 33,34,35))THEN 
     928      IF(wrk_not_released(2, 33,34,35))THEN 
    929929         CALL ctl_stop('psi_m: failed to release workspace arrays.') 
    930930         RETURN 
    … …  
    936936    FUNCTION psi_h(zta)    !! Psis, L & Y eq. (8c), (8d), (8e) 
    937937      !------------------------------------------------------------------------------- 
    938       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     938      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    939939      USE wrk_nemo, ONLY:     X2 => wrk_2d_33 
    940940      USE wrk_nemo, ONLY:     X  => wrk_2d_34 
    … …  
    946946      !------------------------------------------------------------------------------- 
    947947 
    948       IF(.NOT. wrk_use(2, 33,34,35))THEN 
     948      IF(wrk_in_use(2, 33,34,35))THEN 
    949949         CALL ctl_stop('psi_h: requested workspace arrays unavailable.') 
    950950         RETURN 
    … …  
    956956           & + (1. - stabit)*(2.*log( (1. + X2)/2. ))                 ! Unstable 
    957957 
    958       IF(.NOT. wrk_release(2, 33,34,35))THEN 
     958      IF(wrk_not_released(2, 33,34,35))THEN 
    959959         CALL ctl_stop('psi_h: failed to release workspace arrays.') 
    960960         RETURN 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r2620 r2633  
    206206      !!              * initialise the OASIS coupler 
    207207      !!---------------------------------------------------------------------- 
    208       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     208      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    209209      USE wrk_nemo, ONLY: zacs => wrk_2d_1, zaos => wrk_2d_2 ! clear & overcast sky albedos 
    210210      !! 
    … …  
    223223      !!--------------------------------------------------------------------- 
    224224 
    225       IF(.NOT. wrk_use(2,1,2) ) THEN 
     225      IF(wrk_in_use(2,1,2) ) THEN 
    226226         CALL ctl_stop('sbc_cpl_init: requested workspace arrays unavailable.')   ;   RETURN 
    227227      END IF 
    … …  
    563563         &   CALL ctl_stop( 'sbc_cpl_init: diurnal cycle reconstruction (ln_dm2dc) needs daily couping for solar radiation' ) 
    564564 
    565       IF(.not. wrk_release(2,1,2))THEN 
     565      IF(wrk_not_released(2,1,2))THEN 
    566566         CALL ctl_stop('sbc_cpl_init: failed to release workspace arrays.') 
    567567      END IF 
    … …  
    612612      !!                        emp = emps   evap. - precip. (- runoffs) (- calving) ('ocean only case) 
    613613      !!---------------------------------------------------------------------- 
    614       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     614      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    615615      USE wrk_nemo, ONLY: ztx => wrk_2d_1, zty => wrk_2d_2 
    616616      !! 
    … …  
    629629      !!---------------------------------------------------------------------- 
    630630 
    631       IF(.not. wrk_use(2, 1,2))THEN 
     631      IF(wrk_in_use(2, 1,2))THEN 
    632632         CALL ctl_stop('sbc_cpl_rcv: requested workspace arrays unavailable.') 
    633633         RETURN 
    … …  
    820820      ENDIF 
    821821      ! 
    822       IF(.not. wrk_release(2, 1,2))THEN 
     822      IF(wrk_not_released(2, 1,2))THEN 
    823823         CALL ctl_stop('sbc_cpl_rcv: failed to release workspace arrays.') 
    824824      END IF 
    … …  
    860860      !! ** Action  :   return ptau_i, ptau_j, the stress over the ice at cp_ice_msh point 
    861861      !!---------------------------------------------------------------------- 
    862       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     862      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    863863      USE wrk_nemo, ONLY: ztx => wrk_2d_1, zty => wrk_2d_2 
    864864      !! 
    … …  
    870870      !!---------------------------------------------------------------------- 
    871871 
    872       IF(.not. wrk_use(2,1,2))THEN 
     872      IF(wrk_in_use(2,1,2))THEN 
    873873         CALL ctl_stop('sbc_cpl_ice_tau: requested workspace arrays unavailable.') 
    874874         RETURN 
    … …  
    10411041      ENDIF 
    10421042      !    
    1043       IF(.not. wrk_release(2,1,2))THEN 
     1043      IF(wrk_not_released(2,1,2))THEN 
    10441044         CALL ctl_stop('sbc_cpl_ice_tau: failed to release workspace arrays.') 
    10451045      END IF 
    … …  
    10931093      !!                   sprecip             solid precipitation over the ocean   
    10941094      !!---------------------------------------------------------------------- 
    1095       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     1095      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    10961096      USE wrk_nemo, ONLY: zcptn => wrk_2d_1  ! rcp * tn(:,:,1) 
    10971097      USE wrk_nemo, ONLY: ztmp  => wrk_2d_2  ! temporary array 
    … …  
    11181118      !!---------------------------------------------------------------------- 
    11191119 
    1120       IF( (.not. wrk_use(2,1,2,3)) .OR. (.not. wrk_use(3,1)) )THEN 
     1120      IF( wrk_in_use(2,1,2,3) .OR. wrk_in_use(3,1) )THEN 
    11211121         CALL ctl_stop('sbc_cpl_ice_flx: requested workspace arrays unavailable.') 
    11221122         RETURN 
    … …  
    12401240      END SELECT 
    12411241 
    1242       IF( (.not. wrk_release(2,1,2,3)) .OR. (.not. wrk_release(3,1)) )THEN 
     1242      IF( wrk_not_released(2,1,2,3) .OR. wrk_not_released(3,1) )THEN 
    12431243         CALL ctl_stop('sbc_cpl_ice_flx: failed to release workspace arrays.') 
    12441244      END IF 
    … …  
    12561256      !!              all the needed fields (as defined in sbc_cpl_init) 
    12571257      !!---------------------------------------------------------------------- 
    1258       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     1258      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    12591259      USE wrk_nemo, ONLY: zfr_l => wrk_2d_1 ! 1. - fr_i(:,:) 
    12601260      USE wrk_nemo, ONLY: ztmp1 => wrk_2d_2, ztmp2 => wrk_2d_3 
    … …  
    12681268      !!---------------------------------------------------------------------- 
    12691269 
    1270       IF(.NOT. wrk_use(2, 1,2,3,4,5,6,7,8,9))THEN 
     1270      IF(wrk_in_use(2, 1,2,3,4,5,6,7,8,9))THEN 
    12711271         CALL ctl_stop('sbc_cpl_snd: requested workspace arrays are unavailable.'); 
    12721272         RETURN 
    … …  
    14451445      ENDIF 
    14461446   ! 
    1447       IF(.NOT. wrk_release(2, 1,2,3,4,5,6,7,8,9))THEN 
     1447      IF(wrk_not_released(2, 1,2,3,4,5,6,7,8,9))THEN 
    14481448         CALL ctl_stop('sbc_cpl_snd: failed to release workspace arrays.'); 
    14491449         RETURN 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcfwb.F90

    r2620 r2633  
    5858      !!                   & spread out over erp area depending its sign 
    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:      ztmsk_neg => wrk_2d_1, ztmsk_pos=> wrk_2d_2 
    6262      USE wrk_nemo, ONLY: ztmsk_tospread => wrk_2d_3 
    … …  
    7373      !!---------------------------------------------------------------------- 
    7474      ! 
    75       IF( .NOT. wrk_use(2, 1,2,3,4,5) ) THEN 
     75      IF( wrk_in_use(2, 1,2,3,4,5) ) THEN 
    7676         CALL ctl_stop('sbc_fwb: requested workspace arrays are unavailable')   ;   RETURN 
    7777      END IF 
    … …  
    196196      END SELECT 
    197197      ! 
    198       IF( .NOT. wrk_release(2, 1,2,3,4,5) )   CALL ctl_stop('sbc_fwb: failed to release workspace arrays') 
     198      IF( wrk_not_released(2, 1,2,3,4,5) )   CALL ctl_stop('sbc_fwb: failed to release workspace arrays') 
    199199      ! 
    200200   END SUBROUTINE sbc_fwb 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r2620 r2633  
    8989      !!                utau, vtau, taum, wndm, qns , qsr, emp , emps 
    9090      !!--------------------------------------------------------------------- 
    91       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     91      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    9292      USE wrk_nemo, ONLY: zalb_ice_os => wrk_3d_1 ! albedo of the ice under overcast sky 
    9393      USE wrk_nemo, ONLY: zalb_ice_cs => wrk_3d_2 ! albedo of ice under clear sky 
    … …  
    100100      !!---------------------------------------------------------------------- 
    101101 
    102       IF( .NOT. wrk_use(3, 1,2) ) THEN 
     102      IF( wrk_in_use(3, 1,2) ) THEN 
    103103         CALL ctl_stop( 'sbc_ice_lim: requested workspace arrays are unavailable.' )   ;   RETURN 
    104104      ENDIF 
    … …  
    252252!!gm   remark, the ocean-ice stress is not saved in ice diag call above .....  find a solution!!! 
    253253      ! 
    254       IF( .NOT. wrk_release(3, 1,2) )   CALL ctl_stop( 'sbc_ice_lim: failed to release workspace arrays.' ) 
     254      IF( wrk_not_released(3, 1,2) )   CALL ctl_stop( 'sbc_ice_lim: failed to release workspace arrays.' ) 
    255255      ! 
    256256   END SUBROUTINE sbc_ice_lim 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

    r2620 r2633  
    8383      !!                utau, vtau, taum, wndm, qns , qsr, emp , emps 
    8484      !!--------------------------------------------------------------------- 
    85       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     85      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    8686      USE wrk_nemo, ONLY: wrk_3d_1, wrk_3d_2, wrk_3d_3   ! 3D workspace 
    8787      !! 
    … …  
    9696      !!---------------------------------------------------------------------- 
    9797 
    98       IF(.NOT. wrk_use(3, 1,2,3) ) THEN 
     98      IF(wrk_in_use(3, 1,2,3) ) THEN 
    9999         CALL ctl_stop('sbc_ice_lim_2: requested workspace arrays are unavailable.')   ;   RETURN 
    100100      END IF 
    … …  
    228228      IF( ln_limdyn    )   CALL lim_sbc_tau_2( kt, ub(:,:,1), vb(:,:,1) )  ! using before instantaneous surf. currents 
    229229      ! 
    230       IF(.NOT. wrk_release(3, 1,2,3) )   CALL ctl_stop('sbc_ice_lim_2: failed to release workspace arrays') 
     230      IF(wrk_not_released(3, 1,2,3) )   CALL ctl_stop('sbc_ice_lim_2: failed to release workspace arrays') 
    231231      ! 
    232232   END SUBROUTINE sbc_ice_lim_2 
Note: See TracChangeset for help on using the changeset viewer.