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/sbcblk_core.F90 – 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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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 
Note: See TracChangeset for help on using the changeset viewer.