- Timestamp:
- 2012-10-26T12:13:21+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/LIM_SRC_3/limitd_th.F90
r3294 r3517 101 101 102 102 !- Trend terms 103 d_a_i_thd (:,:,:)= a_i(:,:,:) - old_a_i(:,:,:)104 d_v_s_thd (:,:,:)= v_s(:,:,:) - old_v_s(:,:,:)105 d_v_i_thd (:,:,:)= v_i(:,:,:) - old_v_i(:,:,:)103 d_a_i_thd(:,:,:) = a_i(:,:,:) - old_a_i(:,:,:) 104 d_v_s_thd(:,:,:) = v_s(:,:,:) - old_v_s(:,:,:) 105 d_v_i_thd(:,:,:) = v_i(:,:,:) - old_v_i(:,:,:) 106 106 d_e_s_thd(:,:,:,:) = e_s(:,:,:,:) - old_e_s(:,:,:,:) 107 107 d_e_i_thd(:,:,:,:) = e_i(:,:,:,:) - old_e_i(:,:,:,:) 108 108 109 109 d_smv_i_thd(:,:,:) = 0._wp 110 IF( num_sal == 2 .OR. num_sal == 4) d_smv_i_thd(:,:,:) = smv_i(:,:,:) - old_smv_i(:,:,:)110 IF( num_sal == 2 ) d_smv_i_thd(:,:,:) = smv_i(:,:,:) - old_smv_i(:,:,:) 111 111 112 112 IF(ln_ctl) THEN ! Control print … … 143 143 144 144 !- Recover Old values 145 a_i(:,:,:) = old_a_i 146 v_s(:,:,:) = old_v_s 147 v_i(:,:,:) = old_v_i 148 e_s(:,:,:,:) = old_e_s 149 e_i(:,:,:,:) = old_e_i 150 ! 151 IF( num_sal == 2 .OR. num_sal == 4 ) smv_i(:,:,:) = old_smv_i(:,:,:)145 a_i(:,:,:) = old_a_i(:,:,:) 146 v_s(:,:,:) = old_v_s(:,:,:) 147 v_i(:,:,:) = old_v_i(:,:,:) 148 e_s(:,:,:,:) = old_e_s(:,:,:,:) 149 e_i(:,:,:,:) = old_e_i(:,:,:,:) 150 ! 151 IF( num_sal == 2 ) smv_i(:,:,:) = old_smv_i(:,:,:) 152 152 ! 153 153 END SUBROUTINE lim_itd_th
Note: See TracChangeset
for help on using the changeset viewer.