Changeset 2599 for branches/dev_r2586_dynamic_mem/NEMOGCM
- Timestamp:
- 2011-02-20T16:02:36+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r2590 r2599 4 4 !! Surface module : update the ocean surface boundary condition over ice 5 5 !! & covered area using LIM sea-ice model 6 !! Sea-Ice model : LIM 3.0Sea ice model time-stepping6 !! Sea-Ice model : LIM-3 Sea ice model time-stepping 7 7 !!===================================================================== 8 8 !! History : 2.0 ! 2006-12 (M. Vancoppenolle) Original code … … 10 10 !! - ! 2008-04 (G. Madec) sltyle and lim_ctl routine 11 11 !! 3.3 ! 2010-11 (G. Madec) ice-ocean stress always computed at each ocean time-step 12 !! 4.0 ! 2011-01 (A Porter) dynamical allocation 12 13 !!---------------------------------------------------------------------- 13 14 #if defined key_lim3 … … 62 63 # include "vectopt_loop_substitute.h90" 63 64 !!---------------------------------------------------------------------- 64 !! NEMO/OPA 3.3 ,NEMO Consortium (2010)65 !! NEMO/OPA 4.0 , UCL NEMO Consortium (2010) 65 66 !! $Id$ 66 67 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 89 90 !!--------------------------------------------------------------------- 90 91 USE wrk_nemo, ONLY: wrk_use, wrk_release 91 USE wrk_nemo, ONLY: alb_ice_os => wrk_3d_1 ! albedo of the ice under overcast sky92 USE wrk_nemo, ONLY: alb_ice_os => wrk_3d_2 ! albedo of ice under clear sky92 USE wrk_nemo, ONLY: zalb_ice_os => wrk_3d_1 ! albedo of the ice under overcast sky 93 USE wrk_nemo, ONLY: zalb_ice_cs => wrk_3d_2 ! albedo of ice under clear sky 93 94 !! 94 95 INTEGER, INTENT(in) :: kt ! ocean time step … … 99 100 !!---------------------------------------------------------------------- 100 101 101 IF(.NOT. wrk_use(3, 1,2))THEN 102 CALL ctl_stop('sbc_ice_lim: requested workspace arrays are unavailable.') 103 RETURN 104 ELSE IF(jpl > jpk)THEN 105 CALL ctl_stop('sbc_ice_lim: extent of 3rd dimension of workspace arrays needs to exceed jpk.') 106 RETURN 107 END IF 102 IF( .NOT. wrk_use(3, 1,2) ) THEN 103 CALL ctl_stop( 'sbc_ice_lim: requested workspace arrays are unavailable.' ) ; RETURN 104 ELSEIF( jpl > jpk ) THEN 105 CALL ctl_stop( 'sbc_ice_lim: extent of 3rd dimension of workspace arrays needs to exceed jpk.' ) ; RETURN 106 ENDIF 108 107 109 108 IF( kt == nit000 ) THEN … … 131 130 t_bo(:,:) = tfreez( sss_m ) + rt0 ! masked sea surface freezing temperature [Kelvin] 132 131 ! ! (set to rt0 over land) 133 CALL albedo_ice( t_su, ht_i, ht_s, alb_ice_cs,alb_ice_os ) ! ... ice albedo132 CALL albedo_ice( t_su, ht_i, ht_s, zalb_ice_cs, zalb_ice_os ) ! ... ice albedo 134 133 135 134 DO jl = 1, jpl … … 146 145 SELECT CASE( kblk ) 147 146 CASE( 3 ) ! CLIO bulk formulation 148 CALL blk_ice_clio( t_su , alb_ice_cs,alb_ice_os, &147 CALL blk_ice_clio( t_su , zalb_ice_cs, zalb_ice_os, & 149 148 & utau_ice , vtau_ice , qns_ice , qsr_ice , & 150 149 & qla_ice , dqns_ice , dqla_ice , & … … 153 152 ! 154 153 CASE( 4 ) ! CORE bulk formulation 155 CALL blk_ice_core( t_su , u_ice , v_ice , alb_ice_cs, &154 CALL blk_ice_core( t_su , u_ice , v_ice , zalb_ice_cs, & 156 155 & utau_ice , vtau_ice , qns_ice , qsr_ice , & 157 156 & qla_ice , dqns_ice , dqla_ice , & … … 255 254 !!gm remark, the ocean-ice stress is not saved in ice diag call above ..... find a solution!!! 256 255 ! 257 IF( .NOT. wrk_release(3, 1,2))THEN258 CALL ctl_stop( 'sbc_ice_lim: failed to release workspace arrays.')256 IF( .NOT. wrk_release(3, 1,2) ) THEN 257 CALL ctl_stop( 'sbc_ice_lim: failed to release workspace arrays.' ) 259 258 END IF 260 259 ! … … 277 276 278 277 inb_altests = 10 279 inb_alp(:) = 0278 inb_alp(:) = 0 280 279 281 280 ! Alert if incompatible volume and concentration
Note: See TracChangeset
for help on using the changeset viewer.