Changeset 7680 for branches/UKMO
- Timestamp:
- 2017-02-14T13:06:22+01:00 (7 years ago)
- Location:
- branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO/OPA_SRC/SOL/solpcg.F90
r7581 r7680 98 98 IF( nn_timing == 1 ) CALL timing_start('sol_pcg') 99 99 ! 100 ALLOCATE( zgcr( jpi,jpj) )100 ALLOCATE( zgcr(1:jpi,1:jpj) ) 101 101 ! 102 102 ! Initialization of the algorithm with standard PCG -
branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90
r7581 r7680 86 86 IF( nn_timing == 1 ) CALL timing_start('tra_adv') 87 87 ! 88 ALLOCATE(zun( jpi, jpj,jpk))89 ALLOCATE(zvn( jpi, jpj,jpk))90 ALLOCATE(zwn( jpi, jpj,jpk))88 ALLOCATE(zun(1:jpi, 1:jpj, 1:jpk)) 89 ALLOCATE(zvn(1:jpi, 1:jpj, 1:jpk)) 90 ALLOCATE(zwn(1:jpi, 1:jpj, 1:jpk)) 91 91 ! ! set time step 92 92 IF( neuler == 0 .AND. kt == nit000 ) THEN ! at nit000 … … 126 126 ! 127 127 IF( l_trdtra ) THEN !* Save ta and sa trends 128 ALLOCATE(ztrdt( jpi, jpj,jpk) )129 ALLOCATE(ztrds( jpi, jpj,jpk) )128 ALLOCATE(ztrdt( 1:jpi, 1:jpj, 1:jpk) ) 129 ALLOCATE(ztrds( 1:jpi, 1:jpj, 1:jpk) ) 130 130 ztrdt(:,:,:) = tsa(:,:,:,jp_tem) 131 131 ztrds(:,:,:) = tsa(:,:,:,jp_sal) -
branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90
r7581 r7680 369 369 IF( nn_timing == 1 ) CALL timing_start('tra_adv_tvd_zts') 370 370 ! 371 ALLOCATE(zwx_sav( jpi,jpj))372 ALLOCATE(zwy_sav( jpi,jpj))373 ALLOCATE(zwi( jpi, jpj,jpk))374 ALLOCATE(zwz( jpi, jpj,jpk))375 ALLOCATE(zhdiv( jpi, jpj,jpk))376 ALLOCATE(zwz_sav( jpi, jpj,jpk))377 ALLOCATE(zwzts( jpi, jpj,jpk))378 ALLOCATE(ztrs( jpi, jpj, jpk,kjpt+1))371 ALLOCATE(zwx_sav(1:jpi, 1:jpj)) 372 ALLOCATE(zwy_sav(1:jpi, 1:jpj)) 373 ALLOCATE(zwi(1:jpi, 1:jpj, 1:jpk)) 374 ALLOCATE(zwz(1:jpi, 1:jpj, 1:jpk)) 375 ALLOCATE(zhdiv(1:jpi, 1:jpj, 1:jpk)) 376 ALLOCATE(zwz_sav(1:jpi, 1:jpj, 1:jpk)) 377 ALLOCATE(zwzts(1:jpi, 1:jpj, 1:jpk)) 378 ALLOCATE(ztrs(1:jpi, 1:jpj, 1:jpk, 1:kjpt+1)) 379 379 ! 380 380 IF( kt == kit000 ) THEN … … 388 388 ! 389 389 IF( l_trd ) THEN 390 ALLOCATE(ztrdx( jpi, jpj,jpk))391 ALLOCATE(ztrdy( jpi, jpj,jpk))392 ALLOCATE(ztrdz( jpi, jpj,jpk))390 ALLOCATE(ztrdx(1:jpi, 1:jpj, 1:jpk)) 391 ALLOCATE(ztrdy(1:jpi, 1:jpj, 1:jpk)) 392 ALLOCATE(ztrdz(1:jpi, 1:jpj, 1:jpk)) 393 393 ztrdx(:,:,:) = 0._wp ; ztrdy(:,:,:) = 0._wp ; ztrdz(:,:,:) = 0._wp 394 394 ENDIF 395 395 ! 396 396 IF( cdtype == 'TRA' .AND. ln_diaptr ) THEN 397 ALLOCATE(zptry( jpi, jpj,jpk))397 ALLOCATE(zptry(1:jpi, 1:jpj, 1:jpk)) 398 398 zptry(:,:,:) = 0._wp 399 399 ENDIF … … 665 665 IF( nn_timing == 1 ) CALL timing_start('nonosc') 666 666 ! 667 ALLOCATE(zbetup( jpi, jpj,jpk))668 ALLOCATE(zbetdo( jpi, jpj,jpk))669 ALLOCATE(zbup( jpi, jpj,jpk))670 ALLOCATE(zbdo( jpi, jpj,jpk))667 ALLOCATE(zbetup(1:jpi, 1:jpj, 1:jpk)) 668 ALLOCATE(zbetdo(1:jpi, 1:jpj, 1:jpk)) 669 ALLOCATE(zbup(1:jpi, 1:jpj, 1:jpk)) 670 ALLOCATE(zbdo(1:jpi, 1:jpj, 1:jpk)) 671 671 ! 672 672 zbig = 1.e+40_wp -
branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90
r7602 r7680 117 117 IF( nn_timing == 1 ) CALL timing_start('tra_ldf_iso') 118 118 ! 119 ALLOCATE( z2d(jpi, jpj)) 120 ALLOCATE( zdit(jpi, jpj, jpk)) 121 ALLOCATE( zdjt(jpi, jpj, jpk)) 122 ALLOCATE( ztfw(jpi, jpj, jpk)) 123 ALLOCATE( zdkt(jpi, jpj, jpk)) 124 ALLOCATE( zdk1t(jpi, jpj, jpk)) 125 ALLOCATE( ztrax(jpi,jpj,jpk), ztray(jpi,jpj,jpk), ztraz(jpi,jpj,jpk) ) 126 IF( l_trdtra .and. cdtype == 'TRA' ) ALLOCATE( ztrax_T(jpi,jpj,jpk), ztray_T(jpi,jpj,jpk), ztraz_T(jpi,jpj,jpk) ) 119 ALLOCATE( z2d(1:jpi, 1:jpj)) 120 ALLOCATE( zdit(1:jpi, 1:jpj, 1:jpk)) 121 ALLOCATE( zdjt(1:jpi, 1:jpj, 1:jpk)) 122 ALLOCATE( ztfw(1:jpi, 1:jpj, 1:jpk)) 123 ALLOCATE( zdkt(1:jpi, 1:jpj, 1:jpk)) 124 ALLOCATE( zdk1t(1:jpi, 1:jpj, 1:jpk)) 125 ALLOCATE( ztrax(1:jpi,1:jpj,1:jpk)) 126 ALLOCATE( ztray(1:jpi,1:jpj,1:jpk)) 127 ALLOCATE( ztraz(1:jpi,1:jpj,1:jpk) ) 128 IF( l_trdtra .and. cdtype == 'TRA' ) THEN 129 ALLOCATE( ztrax_T(1:jpi,1:jpj,1:jpk)) 130 ALLOCATE( ztray_T(1:jpi,1:jpj,1:jpk)) 131 ALLOCATE( ztraz_T(1:jpi,1:jpj,1:jpk)) 132 ENDIF 127 133 ! 128 134 -
branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO/TOP_SRC/TRP/trcbbl.F90
r7581 r7680 64 64 65 65 IF( l_trdtrc ) THEN 66 ALLOCATE(ztrtrd( jpi, jpj, jpk,jptra )) ! temporary save of trends66 ALLOCATE(ztrtrd( 1:jpi, 1:jpj, 1:jpk, 1:jptra )) ! temporary save of trends 67 67 ztrtrd(:,:,:,:) = tra(:,:,:,:) 68 68 ENDIF -
branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO/TOP_SRC/TRP/trcldf.F90
r7581 r7680 81 81 ! 82 82 IF( l_trdtrc ) THEN 83 ALLOCATE( ztrtrd ( jpi, jpj, jpk,jptra) )83 ALLOCATE( ztrtrd ( 1:jpi, 1:jpj, 1:jpk, 1:jptra) ) 84 84 ztrtrd(:,:,:,:) = tra(:,:,:,:) 85 85 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.