- Timestamp:
- 2011-03-01T20:04:06+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90
r2633 r2636 232 232 !!--------------------------------------------------------------------- 233 233 234 IF(wrk_in_use(3, 1,2,3))THEN 235 CALL ctl_stop('blk_oce_clio: requested workspace arrays are unavailable.') 236 RETURN 237 END IF 234 IF( wrk_in_use(3, 1,2,3) ) THEN 235 CALL ctl_stop('blk_oce_clio: requested workspace arrays are unavailable') ; RETURN 236 ENDIF 238 237 239 238 zpatm = 101000. ! atmospheric pressure (assumed constant here) … … 386 385 ENDIF 387 386 388 IF(wrk_not_released(3, 1,2,3))THEN 389 CALL ctl_stop('blk_oce_clio: failed to release workspace arrays.') 390 END IF 391 387 IF( wrk_not_released(3, 1,2,3) ) CALL ctl_stop('blk_oce_clio: failed to release workspace arrays') 388 ! 392 389 END SUBROUTINE blk_oce_clio 393 390 … … 420 417 !! 421 418 !!---------------------------------------------------------------------- 422 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released423 USE wrk_nemo, ONLY: ztatm=> wrk_2d_1 ! Tair in Kelvin424 USE wrk_nemo, ONLY: zqatm=> wrk_2d_2 ! specific humidity425 USE wrk_nemo, ONLY: zevsqr => wrk_2d_3 ! vapour pressure square-root426 USE wrk_nemo, ONLY: zrhoa=> wrk_2d_4 ! air density427 USE wrk_nemo, ONLY: wrk_3d_1, wrk_3d_2419 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 420 USE wrk_nemo, ONLY: ztatm => wrk_2d_1 ! Tair in Kelvin 421 USE wrk_nemo, ONLY: zqatm => wrk_2d_2 ! specific humidity 422 USE wrk_nemo, ONLY: zevsqr => wrk_2d_3 ! vapour pressure square-root 423 USE wrk_nemo, ONLY: zrhoa => wrk_2d_4 ! air density 424 USE wrk_nemo, ONLY: wrk_3d_1 , wrk_3d_2 428 425 !! 429 426 REAL(wp), INTENT(in ), DIMENSION(:,:,:) :: pst ! ice surface temperature [Kelvin] … … 457 454 !!--------------------------------------------------------------------- 458 455 459 IF( (wrk_in_use(2, 1,2,3,4)) .OR. (wrk_in_use(3, 1,2)) )THEN 460 CALL ctl_stop('blk_ice_clio: requested workspace arrays are unavailable.') 461 RETURN 456 IF( wrk_in_use(2, 1,2,3,4) .OR. wrk_in_use(3, 1,2) ) THEN 457 CALL ctl_stop('blk_ice_clio: requested workspace arrays are unavailable') ; RETURN 462 458 ELSE IF(pdim > jpk)THEN 463 459 CALL ctl_stop('blk_ice_clio: too many ice levels to use wrk_nemo 3D workspaces.') … … 637 633 ENDIF 638 634 639 IF( (wrk_not_released(2, 1,2,3,4)) .OR. (wrk_not_released(3, 1,2)) )THEN 635 IF( wrk_not_released(2, 1,2,3,4) .OR. & 636 wrk_not_released(3, 1,2) ) & 640 637 CALL ctl_stop('blk_ice_clio: failed to release workspace arrays.') 641 END IF 642 638 ! 643 639 END SUBROUTINE blk_ice_clio 644 640 … … 654 650 !! - also initialise sbudyko and stauc once for all 655 651 !!---------------------------------------------------------------------- 656 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released657 USE wrk_nemo, ONLY: zev => wrk_2d_1 ! vapour pressure658 USE wrk_nemo, ONLY: zdlha => wrk_2d_2, zlsrise => wrk_2d_3, zlsset => wrk_2d_4659 USE wrk_nemo, ONLY: zps => wrk_2d_5, zpc => wrk_2d_6 ! sine (cosine) of latitude per sine (cosine)of solar declination652 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 653 USE wrk_nemo, ONLY: zev => wrk_2d_1 ! vapour pressure 654 USE wrk_nemo, ONLY: zdlha => wrk_2d_2 , zlsrise => wrk_2d_3 , zlsset => wrk_2d_4 655 USE wrk_nemo, ONLY: zps => wrk_2d_5 , zpc => wrk_2d_6 ! sin/cos of latitude per sin/cos of solar declination 660 656 !! 661 657 REAL(wp), INTENT( out), DIMENSION(jpi,jpj) :: pqsr_oce ! shortwave radiation over the ocean … … 679 675 !!--------------------------------------------------------------------- 680 676 681 IF(wrk_in_use(2, 1,2,3,4,5,6))THEN 682 CALL ctl_stop('blk_clio_qsr_oce: requested workspace arrays unavailable.') 683 RETURN 677 IF( wrk_in_use(2, 1,2,3,4,5,6) ) THEN 678 CALL ctl_stop('blk_clio_qsr_oce: requested workspace arrays unavailable') ; RETURN 684 679 END IF 685 680 … … 796 791 END DO 797 792 798 IF(wrk_not_released(2, 1,2,3,4,5,6))THEN 799 CALL ctl_stop('blk_clio_qsr_oce: failed to release workspace arrays.') 800 END IF 801 793 IF( wrk_not_released(2, 1,2,3,4,5,6) ) CALL ctl_stop('blk_clio_qsr_oce: failed to release workspace arrays') 794 ! 802 795 END SUBROUTINE blk_clio_qsr_oce 803 796 … … 813 806 !! - also initialise sbudyko and stauc once for all 814 807 !!---------------------------------------------------------------------- 815 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released816 USE wrk_nemo, ONLY: zev => wrk_2d_1! vapour pressure817 USE wrk_nemo, ONLY: zdlha => wrk_2d_2! 2D workspace818 USE wrk_nemo, ONLY: zlsrise => wrk_2d_3 ! 2D workspace819 USE wrk_nemo, ONLY: zlsset => wrk_2d_4! 2D workspace820 USE wrk_nemo, ONLY: zps => wrk_2d_5, zpc => wrk_2d_6 ! sine (cosine) of latitude per sine (cosine)of solar declination808 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 809 USE wrk_nemo, ONLY: zev => wrk_2d_1 ! vapour pressure 810 USE wrk_nemo, ONLY: zdlha => wrk_2d_2 ! 2D workspace 811 USE wrk_nemo, ONLY: zlsrise => wrk_2d_3 ! 2D workspace 812 USE wrk_nemo, ONLY: zlsset => wrk_2d_4 ! 2D workspace 813 USE wrk_nemo, ONLY: zps => wrk_2d_5, zpc => wrk_2d_6 ! sin/cos of latitude per sin/cos of solar declination 821 814 !! 822 815 REAL(wp), INTENT(in ), DIMENSION(:,:,:) :: pa_ice_cs ! albedo of ice under clear sky … … 839 832 !!--------------------------------------------------------------------- 840 833 841 IF(wrk_in_use(2, 1,2,3,4,5,6))THEN 842 CALL ctl_stop('blk_clio_qsr_ice: requested workspace arrays unavailable.') 843 RETURN 844 END IF 834 IF( wrk_in_use(2, 1,2,3,4,5,6) ) THEN 835 CALL ctl_stop('blk_clio_qsr_ice: requested workspace arrays unavailable') ; RETURN 836 ENDIF 845 837 846 838 ijpl = SIZE(pqsr_ice, 3 ) ! number of ice categories … … 945 937 END DO 946 938 ! 947 IF(wrk_not_released(2, 1,2,3,4,5,6))THEN 948 CALL ctl_stop('blk_clio_qsr_ice: failed to release workspace arrays.') 949 END IF 939 IF( wrk_not_released(2, 1,2,3,4,5,6) ) CALL ctl_stop('blk_clio_qsr_ice: failed to release workspace arrays') 950 940 ! 951 941 END SUBROUTINE blk_clio_qsr_ice
Note: See TracChangeset
for help on using the changeset viewer.