Changeset 216 for trunk/NEMO/OPA_SRC/TRA/trasbc.F90
- Timestamp:
- 2005-03-17T15:02:38+01:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/trasbc.F90
r106 r216 13 13 USE ocesbc ! surface thermohaline fluxes 14 14 USE phycst ! physical constant 15 USE traqsr ! ??? 16 USE trdtra_oce ! ocean active tracer trends 15 USE traqsr ! solar radiation penetration 16 USE trdmod ! ocean trends 17 USE trdmod_oce ! ocean variables trends 17 18 USE in_out_manager ! I/O manager 18 19 … … 75 76 !! 8.2 ! 01-02 (D. Ludicone) sea ice and free surface 76 77 !! 8.5 ! 02-06 (G. Madec) F90: Free form and module 78 !! 9.0 ! 04-08 (C. Talandier) New trends organization 77 79 !!---------------------------------------------------------------------- 80 !! * Modules used 81 USE oce, ONLY : ztdta => ua, & ! use ua as 3D workspace 82 ztdsa => va ! use va as 3D workspace 83 78 84 !! * Arguments 79 85 INTEGER, INTENT( in ) :: kt ! ocean time-step index … … 96 102 #endif 97 103 104 ! Save ta and sa trends 105 IF( l_trdtra ) THEN 106 ztdta(:,:,:) = ta(:,:,:) 107 ztdsa(:,:,:) = sa(:,:,:) 108 ENDIF 109 98 110 IF( .NOT.ln_traqsr ) qsr(:,:) = 0.e0 ! no solar radiation penetration 99 111 … … 113 125 ta(ji,jj,1) = ta(ji,jj,1) + zta 114 126 sa(ji,jj,1) = sa(ji,jj,1) + zsa 115 #if defined key_trdtra || defined key_trdmld116 ! save the trend associated to (t,s) sea surface boundary condition117 flxtrd(ji,jj,1) = zta118 flxtrd(ji,jj,2) = zsa119 #endif120 127 END DO 121 128 END DO 129 130 ! save the trends for diagnostic 131 ! sea surface boundary condition tracers trends 132 IF( l_trdtra ) THEN 133 ztdta(:,:,:) = ta(:,:,:) - ztdta(:,:,:) 134 ztdsa(:,:,:) = sa(:,:,:) - ztdsa(:,:,:) 135 CALL trd_mod(ztdta, ztdsa, jpttdnsr, 'TRA', kt) 136 ENDIF 122 137 123 138 IF(l_ctl) THEN ! print mean trends (used for debugging)
Note: See TracChangeset
for help on using the changeset viewer.