Changeset 4641 for trunk/NEMOGCM/NEMO/TOP_SRC
- Timestamp:
- 2014-05-14T11:48:22+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsed.F90
r4529 r4641 273 273 ! ------------------------------------------------------ 274 274 #if ! defined key_sed 275 zrivsil = 1._wp - ( sumdepsi + rivdsiinput * r1_ryyss ) / zsumsedsi275 zrivsil = 1._wp - ( sumdepsi + rivdsiinput * r1_ryyss ) / ( zsumsedsi + rtrn ) 276 276 #endif 277 277 … … 295 295 zfactcal = MIN( excess(ji,jj,ikt), 0.2 ) 296 296 zfactcal = MIN( 1., 1.3 * ( 0.2 - zfactcal ) / ( 0.4 - zfactcal ) ) 297 zrivalk = 1._wp - ( rivalkinput * r1_ryyss ) * zfactcal / zsumsedcal297 zrivalk = 1._wp - ( rivalkinput * r1_ryyss ) * zfactcal / ( zsumsedcal + rtrn ) 298 298 trn(ji,jj,ikt,jptal) = trn(ji,jj,ikt,jptal) + zcaloss * zrivalk * 2.0 299 299 trn(ji,jj,ikt,jpdic) = trn(ji,jj,ikt,jpdic) + zcaloss * zrivalk … … 413 413 ENDIF 414 414 ! 415 CALL wrk_dealloc( jpi, jpj, zdenit2d, zwork1, zwork2, zwork3, zwork4 )415 CALL wrk_dealloc( jpi, jpj, zdenit2d, zwork1, zwork2, zwork3, zwork4, zbureff ) 416 416 CALL wrk_dealloc( jpi, jpj, zwsbio3, zwsbio4, zwscal ) 417 CALL wrk_dealloc( jpi, jpj, jpk, znitrpot )417 CALL wrk_dealloc( jpi, jpj, jpk, znitrpot, zsoufer ) 418 418 ! 419 419 IF( nn_timing == 1 ) CALL timing_stop('p4z_sed')
Note: See TracChangeset
for help on using the changeset viewer.