- Timestamp:
- 2017-04-13T16:21:08+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsed.F90
r7753 r7910 62 62 ! 63 63 CHARACTER (len=25) :: charout 64 REAL(wp), POINTER, DIMENSION(:,:) :: zsidep, zwork1, zwork2, zwork365 REAL(wp), POINTER, DIMENSION(:,:) :: zdenit2d, zironice, zbureff66 REAL(wp), POINTER, DIMENSION(:,:) :: zwsbio3, zwsbio4, zwscal67 REAL(wp), POINTER, DIMENSION(:,:) :: zsedcal, zsedsi, zsedc68 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrpo4, ztrdop, zirondep, zsoufer, zpdep, zlight69 REAL(wp), POINTER, DIMENSION(:,:) :: zwsfep64 REAL(wp), DIMENSION(jpi,jpj) :: zsidep, zwork1, zwork2, zwork3 65 REAL(wp), DIMENSION(jpi,jpj) :: zdenit2d, zironice, zbureff 66 REAL(wp), DIMENSION(jpi,jpj) :: zwsbio3, zwsbio4, zwscal 67 REAL(wp), DIMENSION(jpi,jpj) :: zsedcal, zsedsi, zsedc 68 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ztrpo4, ztrdop, zirondep, zsoufer, zpdep, zlight 69 REAL(wp), DIMENSION(jpi,jpj) :: zwsfep 70 70 71 71 !!--------------------------------------------------------------------- … … 76 76 ! 77 77 ! Allocate temporary workspace 78 CALL wrk_alloc( jpi, jpj, zdenit2d, zwork1, zwork2, zwork3, zbureff )79 CALL wrk_alloc( jpi, jpj, zwsbio3, zwsbio4, zwscal )80 CALL wrk_alloc( jpi, jpj, zsedcal, zsedsi, zsedc )81 CALL wrk_alloc( jpi, jpj, jpk, zlight, zsoufer )82 IF( ln_p5z ) CALL wrk_alloc( jpi, jpj, jpk, ztrpo4, ztrdop )83 IF( ln_ligand ) CALL wrk_alloc( jpi, jpj, zwsfep )84 78 85 79 … … 98 92 IF( ln_ironice ) THEN 99 93 ! 100 CALL wrk_alloc( jpi, jpj, zironice )101 94 ! 102 95 DO jj = 1, jpj … … 115 108 & CALL iom_put( "Ironice", zironice(:,:) * 1.e+3 * rfact2r * e3t_n(:,:,1) * tmask(:,:,1) ) ! iron flux from ice 116 109 ! 117 CALL wrk_dealloc( jpi, jpj, zironice )118 110 ! 119 111 ENDIF … … 123 115 IF( ln_dust ) THEN 124 116 ! 125 CALL wrk_alloc( jpi, jpj, zsidep )126 CALL wrk_alloc( jpi, jpj, jpk, zpdep, zirondep )127 117 ! ! Iron and Si deposition at the surface 128 118 IF( ln_solub ) THEN … … 153 143 ENDIF 154 144 ENDIF 155 CALL wrk_dealloc( jpi, jpj, zsidep )156 CALL wrk_dealloc( jpi, jpj, jpk, zpdep, zirondep )157 145 ! 158 146 ENDIF … … 516 504 ENDIF 517 505 ! 518 CALL wrk_dealloc( jpi, jpj, zdenit2d, zwork1, zwork2, zwork3, zbureff )519 CALL wrk_dealloc( jpi, jpj, zwsbio3, zwsbio4, zwscal )520 CALL wrk_dealloc( jpi, jpj, zsedcal, zsedsi, zsedc )521 CALL wrk_dealloc( jpi, jpj, jpk, zlight, zsoufer )522 IF( ln_p5z ) CALL wrk_dealloc( jpi, jpj, jpk, ztrpo4, ztrdop )523 IF( ln_ligand ) CALL wrk_dealloc( jpi, jpj, zwsfep )524 506 ! 525 507 IF( nn_timing == 1 ) CALL timing_stop('p4z_sed')
Note: See TracChangeset
for help on using the changeset viewer.