Changeset 6050 for branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
- Timestamp:
- 2015-12-15T00:07:08+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r6049 r6050 86 86 !! *** routine dyn_spg_ts_alloc *** 87 87 !!---------------------------------------------------------------------- 88 INTEGER :: ierr( 2)88 INTEGER :: ierr(3) 89 89 !!---------------------------------------------------------------------- 90 90 ierr(:) = 0 91 91 ! 92 ALLOCATE( wgtbtp1(3*nn_baro), wgtbtp2(3*nn_baro), zwz(jpi,jpj), STAT=ierr(1) ) 93 ! 92 94 IF( ln_dynvor_een ) ALLOCATE( ftnw(jpi,jpj) , ftne(jpi,jpj) , & 93 & ftsw(jpi,jpj) , ftse(jpi,jpj) , STAT=ierr( 1) )94 ! 95 ALLOCATE( un_adv(jpi,jpj), vn_adv(jpi,jpj) , STAT=ierr( 2) )95 & ftsw(jpi,jpj) , ftse(jpi,jpj) , STAT=ierr(2) ) 96 ! 97 ALLOCATE( un_adv(jpi,jpj), vn_adv(jpi,jpj) , STAT=ierr(3) ) 96 98 ! 97 99 dyn_spg_ts_alloc = MAXVAL( ierr(:) )
Note: See TracChangeset
for help on using the changeset viewer.