- Timestamp:
- 2011-03-02T19:23:26+01:00 (13 years ago)
- Location:
- branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DTA/dtasal.F90
r2636 r2639 56 56 ! 57 57 INTEGER :: ji, jj, jk, jl, jkk ! local loop indicies 58 INTEGER :: ik, ierr 0, ierr1, ierr2 ! local integers58 INTEGER :: ik, ierr, ierr0, ierr1, ierr2 ! local integers 59 59 #if defined key_tradmp 60 60 INTEGER :: il0, il1, ii0, ii1, ij0, ij1 ! local integers … … 89 89 WRITE(numout,*) '~~~~~~~ ' 90 90 ENDIF 91 92 ! Allocate salinity data array 93 ALLOCATE( s_dta(jpi,jpj,jpk) , STAT=ierr ) 94 IF( ierr > 0 ) CALL ctl_stop( 'STOP', 'dta_sal: unable to allocate s_dta array' ) 95 ! Allocate sf_tem structure 91 96 ALLOCATE( sf_sal(1) , STAT=ierr0 ) 92 97 ALLOCATE( sf_sal(1)%fnow(jpi,jpj,jpk) , STAT=ierr1 ) -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DTA/dtatem.F90
r2636 r2639 62 62 ! 63 63 INTEGER :: ji, jj, jk, jl, jkk ! dummy loop indicies 64 INTEGER :: ik, ierr 0, ierr1, ierr2 ! local integers64 INTEGER :: ik, ierr, ierr0, ierr1, ierr2 ! local integers 65 65 #if defined key_tradmp 66 66 INTEGER :: il0, il1, ii0, ii1, ij0, ij1 ! local integers … … 96 96 WRITE(numout,*) '~~~~~~~ ' 97 97 ENDIF 98 ALLOCATE( sf_tem(1) , STAT=ierr0 ) 99 ALLOCATE( sf_tem(1)%fnow(jpi,jpj,jpk) , STAT=ierr1 ) 100 IF( sn_tem%ln_tint ) ALLOCATE( sf_tem(1)%fdta(jpi,jpj,jpk,2), STAT=ierr2 ) 101 IF( ierr0+ierr1+ierr2 > 0 ) CALL ctl_stop( 'STOP', 'dta_sal: unable to allocate sf_sal structure' ) 98 99 ! Allocate temperature data array 100 ALLOCATE( t_dta(jpi,jpj,jpk) , STAT=ierr ) 101 IF( ierr > 0 ) CALL ctl_stop( 'STOP', 'dta_tem: unable to allocate t_dta array' ) 102 ! Allocate sf_tem structure 103 ALLOCATE( sf_tem(1) , STAT=ierr1 ) 104 ALLOCATE( sf_tem(1)%fnow(jpi,jpj,jpk) , STAT=ierr2 ) 105 IF( sn_tem%ln_tint ) ALLOCATE( sf_tem(1)%fdta(jpi,jpj,jpk,2), STAT=ierr3 ) 106 IF( ierr0+ierr1+ierr2+ierr3 > 0 ) CALL ctl_stop( 'STOP', 'dta_tem: unable to allocate sf_tem structure' ) 102 107 ! ! fill sf_tem with sn_tem and control print 103 108 CALL fld_fill( sf_tem, (/ sn_tem /), cn_dir, 'dta_tem', 'Temperature data', 'namdta_tem' ) -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90
r2620 r2639 107 107 ENDIF 108 108 109 ! Allocate erp and qrp array 110 ALLOCATE( qrp(jpi,jpj), erp(jpi,jpj), STAT=ierror ) 111 IF( ierror > 0 ) CALL ctl_stop( 'STOP', 'sbc_ssr: unable to allocate erp and qrp array' ) 112 109 113 IF( nn_sstr == 1 ) THEN !* set sf_sst structure & allocate arrays 110 114 ! … … 119 123 IF( ierror > 0 ) CALL ctl_stop( 'STOP', 'sbc_ssr: unable to allocate sf_sst data array' ) 120 124 ! 121 ALLOCATE( qrp(jpi,jpj), STAT=ierror )122 IF( ierror > 0 ) CALL ctl_stop( 'STOP', 'sbc_ssr: unable to allocate qrp array' )123 125 ENDIF 124 126 ! … … 135 137 IF( ierror > 0 ) CALL ctl_stop( 'STOP', 'sbc_ssr: unable to allocate sf_sss data array' ) 136 138 ! 137 ALLOCATE( erp(jpi,jpj), STAT=ierror )138 IF( ierror > 0 ) CALL ctl_stop( 'STOP', 'sbc_ssr: unable to allocate erp array' )139 139 ENDIF 140 140 !
Note: See TracChangeset
for help on using the changeset viewer.