- Timestamp:
- 2011-03-02T19:23:26+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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.